MMM MMM GGGGGGGGGGGG 
MMM MMM GGGGGGGGG6GGG 
MMM MMM GGGGGGGGG6G6GG 
MMMMMM = MMMMMM =6GGG 

MMMMMM = MMMMMM =6GGG 

MMAMMM =6MMMMMM =6GGG 

MMM 6 MMM = =OMMM «GGG 

MMM = 6MMM =O MMM «GGG 

MAM = 60OMMM = OMMM «GGG 

MMM MMM GGG 

MMM MMM GGG 

MMM MMM GGG 

MMM MMM GGG G6GGGGGGGG 
MMM MMM GGG 666666666 
MMM MMM GGG 6GGGGGG6GG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 
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SSSSSSSS MM MM GGGGGG MM MM III NN NN UUUUUUUUUU PP DDDDDDDD éons 3 
SSSSSSSS MM MM GGGGGG MM MM III NN NN UUUUUUUUUU PP DDDDDDDD es 3 
LL IIII11 SSSSSSSS 3 
LL II1111 SSSSSSSS 3 
LL II SS s 
LL I] $s 3 
LL I] $s 3 
LL I] SS 3 
LL II SSSSSS 3 
LL I] SSSSSS 3 
LL I] ss 3 
LL I] ss 3 
LL II ss 
LL I] $s 
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-Sep-1 
aut "SM ue IMUM poate. = Minimum update calculation and output’ 
MODULE SMGSSMINIMUM DPDAT 
JDER ~b45' ! File: SMGMINUPD.B32 Edit: STAN1045 
BEGIN 
PITTIIILILILILILI LILI LLL iii iti iiititiriiiiiiiiiitte 


'@ 
'® COPYRIGHT Os) 1978, 1980, 1982, 1984 BY 
'* DIGI QUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 


'® ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS ryan sueo UNDER A LICEN 

!* ONLY IN ACCORDANCE WITH THE TERMS OF 

!* INCLU te OF THE ABOVE COPYRIGHT NOTICE. 

!* COPIES THEREOF MAY NOT BE PROVIDED OR OT MADE AVAILABLE TO ANY 
NO SHIP E SOFTWARE IS HEREBY 


a 
* 
ak 
te 
® 
® 
cs 
ee 
® 
' & 
ie TRANSFERRED. : 
® 
ak 
n 
te 
& 
® 
a 
& 
& 
® 


oscn 
> 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i CORPORAT I tke NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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-y 
AZ 


1 144 
! FACILITY: Screen Management 


i ABSTRACT: 
This module contains routines which inspec j two screen 
peer geenees ens | and calculate the near-minimal sequence of 
terminal commands to change the current contents of the screen 
to the new representation of he screen 
Also contained herein are routines pertaining to buffering. 

i ENVIRONMENT: User mode, Shared Library routines. 

i AUTHOR: R. Reichert, CREATION DATE: 15-APR-1983 

i MODIFIED BY: 

i Mes sreapra| 986 

4 


= $1 
= STAN smart 


ee a 


oo 
RF 


WN SO ODN UENO OONO UE AR OO ODNOUFS WO 


Store unknown terminal ee Sorsessty in PBCB. 
4. Minor change for unsolic 

Fix dot bug in SET ATTRIBUTES POFF. 

Fixed bug with border ve 


Mh 
8-Mar-1984. Renove use of ZASCID thet. causes PSECTS 


' 

' 

' 

' 

! 

' 

' 

' 

' 

! 

' 

' 

' 

! 

' 

! 

' 

] 

' 

! 

: STAN 

; to be read/write thus making their use impractical for 

; shared images. 

: Home cursor before erasing screen. 

} change test for unknown terminal. 

! 1-040 = STAN 14-Mar-1984. Ensure pinet erent position doesn't change 
: after ° END BOL any sccor ling re n in the exit handler. 

: Change END_BOLD capa ti ity 08 ain NORMAL -RENDITION. 

Handle unknown terminal 
' 
1 
4 
' 
1 
' 
' 
.] 
' 
' 
t 
t 
1 
' 
1 
] 
i] 
‘ 
! 
' 
1 
i] 
' 
' 
i] 
’ 


Ssssssss 
Ss COoooeoo 
Dwell valal ah ab al aloe 


o 
oo 


Make truncation icon cork again; also other control Ghent ays. 
: Write two new Cout ines SET SATTRIBUTES ON and SET_ATTRI UTES. OFF. 
i 1-039 = STAN 2SereDei9Be, fix. 
: Initialize haraieer stice tr from terminal characteristics 

not from termtable capabilities. 

Allow long sequences for bo a r vector. 


esses 


SSSGEAFER IS SRBVS A Ku OOo WO Pom OOo aon mone 
o 
oa 
NO 


“038 - S -Feb-19 fixe 

“037 - STAN q-fep=12 "* aM BS Sie in PBCB. 

-036 -Feb-1984. Install Pam's fix for VT52s. 

Bug fix in exit handler 

03? - ST ~Feb-1984. Rieu’ ositive terminal codes. 
4 - STAN 1 raet by 3. Use TERMTABLE. 


- 33 = STAN acc y os. 1 x dot bug edit 

-032 = RKR freetly. As SAGSSERA Ase “pasteBoino, This inner routine 
goes ¢ costly to te arise WM BUEEE R rather than SMGSFLUSH_BUFFER. 

Redir urrent calls to SAGSERASE_PASTEBOARD to call 
SROSSERASE E PAST BOARD instead. 

= STAN 1 - Restore Tee a acak wierd ret, exit. 

= STAN 1 ete . inva} jdase screen gn Ct 

= STAN 135-0ct-1983. Bug fix for scroll Hi ba a Lines 

- s 


Handle DIAMOND an contro gorecter. 
Handle user erent $- Ry... 9-sep-19 
Clear s on if so requested 
= Add SMG SAUT “OUTPUT so th ¢. autobended routines can 
ng the pb addr. 


plays. STAN 5-0ct-1983. 


aa a a ed a a a = os = = = = 2 SS 3 2 = = 2 2 2 2 2 2 a 


Be Se Be Se Se Se Se Se Ge Se Ge Ge Fe Ge Ge Ge Se Ge Ge Ge Ge Ge Se Se Ge Ge Fe Ge Se Ge Ge Se Se Se Ge Ge Ge Se Se FH Fe Fe Se Fe Se Fe Se Ge Se Se Ge FH Se Se Se Se ae 


NOUEWN Oo 


output directly to the pb | hout know 
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re 


1-8 5- had SncSERASE AGESCHECK HOt STAN 25-Au “SRS 
1-024 - he HEC r- gS CROLL a9 ote sain UPD to support 
gous Je Se/doubt e 
1-023 - e fone preprocessin "ts CrhéssRin UPD to tie the range 
j ine ata ¢ hanged. RRR 1 9 
1-022 - Modif CHECK sou SCROLL ye 8 ypass situat on where in fact 
n 


the virtual display ye (Thecby=( ne identical contents 
except for th % top oF res = cine. 
For oxene e, you f up (except the last line ) a 
virtual “gisplay with the text 

COMMAND: 

COMMAND : 


you write the Last Line to COMMAND:, the qurrent logic 
-F eoyreerens the virtual display and rope nt the 500. line. 
This wi wlitats the ss aM result but looks ugly. ght 
now this will otge happen when you clear a isplay to ‘ont 
Speces since it falls into the upscroll logic 

is fix intercepts the cases where the virtual displa ay 
has changed only in the ist or saee Line, avoids scrolling 
and lets the rest of minimal upda te repaint wa — bees "tine 

1-021 = RKR Remove yon orar y e. to scrolling 9.pro oblem gagene atin 
code in SMGSSFIND_MIN_CURSOR_ — (ne $ GSSSET PHYS] AL. CURS R 
should now ce oi. sf the Prob lem. 

1-020 = RKR tyes 3 “CY date lines of code pertaining to 
actual ee ettin orpncet ahgresting region into a new 
subrout a, sngsteo oRtEes ROLL ane 

1-019 - 1- AUG G-1 y bro CHECK HDWR_SCROLL to provide 
dounscrot ting gy ve well as upscrolling. 

1-018 = STAN 28-Jul-19 ia orar As, to remove scrolling 

on after use. 

1-017 = RKR 17-JuLn 1983 Fis bug found by J. Burrows. 

1-016 = RKR 14-JUL-19 Minor code {aprovenents and better comments 
to newly-added code. 


a ot ot BOO OOOOCOOO 


WO OD NOA NEW $0 OODNO UNE WIN — O OD NOU EWN)" O ODONOU SW 


1-015 - ae R deedutol? -1983. Add Sneescusce _HDWR_SCROLL. 

1-014 - ma? -Jun-1983. Temporary fix 

1- 13 - STAN 88-Jun-1983. File output. 

1-012 = RKR 20-May-198 soneve external references to DD_ structures 
and counts -- no longer needed (or available). 

1-011 = STAN AN Vichayn198 *pasteboard batching 

1-010 = STAN 11-May-1 


Use shift ft Out. an nd shift in. 


Tem orary oy Hix’ fo x ator rendition attribute. 
1-008 = STAN 8-M aye 

Flush ot er only on success exit. 
1-007 - Dba AN 22-May-1983 

AD “bug. in buffering. 
a angie ttush’p renditio 
t flush buster on ttt forced exit. 

1-006 - BO AN 


TAN 
SM ANebure yiPUT. 

SMG$SOUT 

Finished YnESSFLUSH. BUFFER. 


SESS SSRNSU Rsv OOene nro Se ue nh ove Sob vee oe 


ke et et tt ss ss a Os = os Ss 2s 9 Ss Ss Ss ss ss Ls 2 ss st st 


Be Se Se Se Se Se Se Se Be Ge Se Ge Ge Ge Ge Ge Se Se Se Fe Ge Ge Se Se Se Ge Se Se Ge Ge Se Se Se Se Se Ge Se Se Se Se Ge FH Se Se Se Se Se Ge Se Se Se Se Se Ge Se Se ee 


me a a ed a od = 2 = = a = = 2 2 ss 2 2 os os SS 
me ee a a a ed ad ed ed td wd 2 6 


BPE EWI nononononononononund 


ee ee ee ee me et me me tm me me tte 


PITA Ue ssensntne. rent = wintmm wdaee coteoente Heit HAH StS SUPA I ah, a 
i 
i 4 ; 
' 1- 
i - 
i 4. 
' 


re 


= One additional tweak. RKR Sart tS i 
Minor optimization. RKR 26-APR-1 

At Ry, attr soute produc jon, f ore 21-APR-1983. 
Shell —_ sortie iieelasestae 1 RK 9° Fs -apR-1983. 


1 
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1 
1 
1 
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1 SSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


FORWARD ROUTINE 

! Public entry points 
SMGSERASE_PASTEBOARD, 
SMGSFLUSH_BUFFER, 


Clears screen 


Flush remaining buffered 
! output to screen by display id. 


SMGSPUT_PASTEBOARD, 
SMGSSNAPSHOT, 

: Private entry points 
SMGSSCHECK_HDWR_SCROLL, 


Output pasteboard via user routine 


Take an RMS snapshot 


at 4 4 4 2 2 st ts ss ss ss ts os 


Check to see if harware scroll 
will help min. update 


Inner ERASE_PASTEBOARD routine 
Exit handler to flush pasteboard 


SMGSSERASE_PASTEBOARD, 
SMGSSPBCB_EXIT_HANDLER, 
SMGSSSETUP_TERMINAL_TYPE, 
SMGS$SFLUSH_BUFFER, 


Find out type of terminal. 


Flush remaining buffered 
output to screen by PBCB. 


SMGSSFORCE_SCROLL_REG, Force physical scrollin 


region to that specified. 


Put text to screen with rendition 
and cursor positioning 


Autobended entry to SMGSSOUTPUT 


SMGSSPUT_SCREEN, 


SMGS$SAUTOB_OUTPUT, 


SMGSS$SET_ATTRIBUTES_ON 
SMGSSSET-ATTRIBUTES OFF, 
SMGSSOUTPUT 


Raw outputter 


ee ee ee ee ee ee ee ee ee ed ed ed ed 


APRAVLSSSLESEANLSESSELSEALAVAS SSNS ARAN SSSIS ALAS SEIT 


OO OOO OO O00 0000 090909 09 09 09 SINISE NNN NOAA AAA AAA OA UIINUTUTUTUTUTU 


Oo 
SSVSSRAN SSS APAN AS SSO NII OS Ooo Warn oe Ooo dor enone 


' 
SMGSSMIN_UP i force compet thi tty see temp 
SMGSSOUTPUT_PASTEBOARD, ' Output pastepoere use minimal 
! update if this mode is enabled) 
: Local entry points 
ESTABLISH_BORDER_VECTOR : NOVALUE, ! Create border vector 
RMS_RIN, ' Output record with RMS 
OUTPUT; ! Low level output routine 
SWITCHES: 
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in include files 
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PUPP PASSAU BPE EPP PPLE EEE 


—— OO 


! 
LINKAGES: 
! in include fiies 


; INCLUDE FILES 


REQUIRE ‘RTLIN:SMGPROLOG'; ines psects, macr 


! def os, 
' structures, & terminal symbols 
' JSB 


REQUIRE "RTLIN:STRLNK.REQ'; : Linkages 
' 
EXTERNAL REFERENCES 
EXTERNAL 
PBD_L_COUNT, ! No. of pasteboards we currently have 


PBD_A_PBCB : VECTOR CPBD_K_MAX_PB, LONG] 
' Table of addresses of PBCB's 


PBD_V_PB_AVAIL : BITVECTOR CPBD_K_MAX_PB); 
! Bit vector or pasteboard id numders in use. 


EXTERNAL LITERAL 


SMG$_WILUSERMS, ! RMS will be used Later to perform output 
SMG$_INVPAS_ID; ! Invalid pasteboard id 


EXTERNAL ROUTINE 


LIBSGET_EF, 
LIBSGET VM, 
URSOR_POS 


SMGSSFIND_MIN_C POS, 

STEBOARD- UPDATE, 
SHGSEND PASTEBOARD_UPDAT 
SMGS MINIMAL _UPDATE; 
OWN 


FIRST_TIME_FLAG : INITIAL (0); !***#* Kludge -- ignore *** 


re 


SSMGSVAL IDATE_ARGCOUNT(1,1); 

'¢ 

2 Isolate pasteboard control block. 
SSMGS$GET_PBCB(.PASTEBOARD_ID,PBCB); ! Get address of PBCB 
RETURN (SMGS$SERASE_PASTEBOARD (.PBCB)); 


END; ! routine SMGSERASE_PASTEBOARD 


SPESLSSSLSSSLESLSSSLSALSSESSa 


AOAoouvy 


TITLE SMGSSMINIMUM_UPDATE SMGSSMINIMUM urpats - Minim 
3 um update calculatio 
-IDENT \1-045\ 
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SSMINIMUM_UP SMGSSMINIMUM UPDATE = Minimum update calculatio 16-Se & AX-11 Bliss-32 V4.0-74 P 7 
emgee" SMCSERASE PASTEBOARD- Clear screen 1ergeei13be 99:55:88 — FeNcat ORE sAgMYnoby BS2;1 ~~ “ 28 
3 5 13. 1 XSBTTL "SMGSERASE_PASTEBOARD- Clea f Screen. : 
: $ } : PLOBAL ROUTINE SMGSERASE_PASTEBOARD ( PASTEBOARD_ID ) = : 
i $58 18 1 | FUNCTIONAL DESCRIPTION: ; 
: 260 18 1 This routine erases fhe entire pasteboard. ; 
: 61 1 ! The physical cursor is left at (1,1). : 
; es ] | CALLING SEQUENCE: ; 
; 65 § ! ret_status.wic.v = SMGSERASE_PASTEBOARD ( PASTEBOARD_ID.rl.r ) : 
; ef 2 5 FORMAL PARAMETERS: ; 
3 e3 2 3 } PASTEBOARD_ID.rl.r The id of the PASTEBOARD which is to be cleared. : 
3 4 3 ; IMPLICIT INPUTS: : 
: 7 3 1 None ; 
; a3 3 5 IMPLICIT OUTPUTS: F 
; rt : 5 : None ; 
; 239 | i COMPLETION STATUS: ; 
3; 280 5 : 1 : 
; 5 1 i Ss$ oo L Normal successful completion é 
3 540 1! SMGS$_WRONUMARG ¥rong number of arguments. 3 
; 3) : SMGS_ TNVPAS. ID Invalid pasteboard id. : 
3 38 SIDE EFFECTS: ; 
3 345 1 | NONE 
; 54% ‘BEGIN 
; 0369 LOCAL : 
0331 PBCB : REF SPBCB_DECL; ! Address of pasteboard control block. : 
: 55 : 
3 26 3 
; 554 3 
: He 3 
335 
3 558 : 
3 559 : 
3 560 : 
3 : 1 ; 
; B : 


[ei en SS Seaman pad oO Sieg! Se Sees BS eg Sgr 
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SSMINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum update calculatio 16-Sep-1984 00:54: AX-11 Blisg-32 V4. 
ingee" SMGSERASE _P PAST TEBOARD= Clear Screen ° 12286871382 99:35i8e SMGRTL.SRC SMEMINUPD B92; 1 


«PSECT _SMGSDATA,NOEXE, PIC,2 
00000000 00000 st hae Cant 


NG 0 
-EXTRN PBD_L_COUNT 
XTRN PBD-V"PB_A AVAIL snes” GTLUSERMS 
EXTRN SMGS$ TWWPAS. 1D, LIBSGET_EF 
SEXTRN LIBSGET VN SMGS$F IND_MIN_CURSOR_POS 
-EXTRN SMGSBEGIN PA ast EBOARD OP ATE 
SEXTRN SMGSEND_P PRI TEBOARD_UPDAT 
EXTRN SMG$ Ou TPUT_MI NIAC LUPDATE 


SEXTRN SMGS_W ONUMAR RG 
.PSECT _SMGSCODE,NOWRT, SHR, PIC,2 


0000 00000 .ENTRY SMGSERASE_PASTEBOARD, Save nothing 
01 6¢ 1 0008 CMPB CCAP), #1 
8 13 0000 BEQL 
50 000000006 &8F v0 9007 MOVE #SMG$_WRONUMARG, RO 
50 04 at Dg 0000 1$: MOVE @PASTEBOARD_ID, RO 
000000006 00 30 D1 a9018 cHPL RO. PBD_L_COUNT 
08 000000006 00 50 £0 OOO1E BBS RO, PBD_V_PB_AVAIL 
50 000000006 &F BO 00026 2$: MOVL #SMG$_IRVPAS~ID, bs > 
50 0000000060040 D0 OO0cE 3$: MOVE BD AA _PBCBCROJ, PBCB 
0000v CF 01 FB 00038 CALLS #1, SMGSSERASE_PASTEBOARD 
04 0003D RET 


; Routine Size: 62 bytes, Routine Base: _SMGSCODE + 0000 


0561 
0563 


re 
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sngse SMGSSERASE_PASTEBOARD= Clear screen 1 ~300- 1382 90 36:86 SMGRTL.SRCISMGMINUPD .B 2:1 
2 4 ZSBITL ‘'SMGSSERASE PASTEBOARD= Clear Screen’ 
GLOBAL ROUTINE SMGSSERASE_PASTEBOARD ( PBCB : REF $PBCB_DECL ) = 


FUNCTIONAL DESCRIPTION: 


This Ae Bh erases pe entire pettpboors. 
The physical cursor is left at (1,1). 


CALLING SEQUENCE: 


SIN NIOA AAA OD 


WI —OOONOu 


R 
s 307 1 
; 308 1 
: 309 1! 
3 S10 1! 
: } : 
3 18 1! 
; 314 1! 
i He 1 i 
3 iH aoe ! ret_status.wic.v = SMGSSERASE_PASTEBOARD ( PBCB.rab.r) 
: 13 srg | FORMAL PARAMETERS: 
: $f 278 1 PBCB.rab.r Address of pasteboard control block 
3 ‘ 580 1 ! IMPLICIT INPUTS: 
3 4 581 1! 
3 5 286 1! None 
3 $8 B25 1! 
3 7 584 1 ! IMPLICIT OUTPUTS: 
: 328 0585 1! 
3 $3 B2ee 1! None 
3 0 0587 1! 
3; 331 0588 1 ! COMPLETION STATUS: 
3 5 0589 1! 
: 35 0590 1! SS$_NORMAL Normal successful completion 
: 334 0591 1°! 
3 $32 Bees 1 ! SIDE EFFECTS: 
; ; 6 0593 1! 
3; 337 0594 1! NONE 
s 358 0595 1 !-- 


8 
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-04 SMGSSERASE_PASTEBOARD= Clear Screen 1 3007138 99:35:88 SMGRTL.SRCISMGMINUPD .B 231 * (6) 
38 BEGIN 
$8 LOCAL 
9 
STATUS, 
wCB : REF SWCB_DECL; ! Address of window control block. 


14 
Flush out our buffers. 


STATUS=SMGS$FLUSH_BUFFER(.PBCB); 
IF NOT .STATUS THEN SIGNAL(.STATUS); 


1+ 
Home the cursor. (erase_whole_display doesn't necessarily do that). 


PAEAPQPMNMNNGIVINVII ES SELL PLE UM 


O00 WO A PON o> DOO MEAP ODONAME UNIO 


on0 
601 
one 
60 
one 
Ben? 
$07 
0& 
609 
gei9 
611 
R616 
061 
0614 SSMGSGET_TERM_DATA(HOME) ; 
0615 STATUS=OOTPUTC.PBCB, .PBCBCPBCB_L_CAP_LENGTH],.PBCBCPBCB_A_CAP_BUFFER); 
pols IF NOT .STATUS THEN RETURN .STATOS; 
0618 '¢ 
+284 Physically clear the screen with an escape sequence. 
6 0621 
36 06 § SSMGSGET_TERM_DATA(ERASE_WHOLE _DISPLAY); 
cae 
6 0625 : Make sure it happens immediately by calling OUTPUT rather than SMG$SOUTPUT. 
7 06 § ! This way it won't get buffered. 
Ro 
3 0629 STATUS=OUTPUT(.PBCB,.PBCBCPBCB_L_CAP_LENGTH],.PBCBCPBCB_A_CAP_BUFFER)); 
$e $e ? IF NOT .STATUS THEN RETURN .STATOS; 
76 boas + 
77 063 ' Set the screen buffers to all blanks. 
78 0634 - 
79 0635 
80 0636 WCB=.PBCBCPBCB_A_WCB) 
81 0637 CHSFILL(ZC' ‘,;WCBCWCB_L_BUFSIZE),.WCBCWCB_A_TEXT_ BUF J); 
Beas CHSFILL(ZC* *,.WCBCWCB_L-BUFSIZE),.WCBLWCB_A_SCR_TEXT_BUF)); 
639 CHE TLL GD. -WCBCWCB_L_BUFSIZE), .WCBCWCB_A_ATTR_BUF I); 
640 CHSF ILL ( -WCBCWCB_L PYF aree , -WCBCWCB-A_SCR_ATTR_BUF J); 
tal IF .WCBCWCB_A_CHAR_SET~B0F) NEQ 
ak THEN 
64 BEGIN 
rt} ENSt ILL CO, .MCBCUCE_L BUF SIZE), .WCBCUCE_A_CHAR_SET_BUF J); 


IF .WCBCWCB_A_SCR_CHAR_SET_BUF] NEQ 0 
THEN 


RPI UALPPIPOPIWNIURPINIPIPS PIPOPIPIPDPYDIPIA | HSPOPIPIPT SS PIPONIPIPIPYIPIPIPIPIPIPIPYPIPIPIPIPINIPININININIPIPININY 


Bo Ge Be Se Oe Se Se Ge Se Se Ge Se Ge Se Ge Be Sete Sete Ge Ge Ge Be Ge Ge Ge BH St Ge Se Se Ge Se Se Se Se Ge Se Se ee Fe Se Ge Ge Ge Ge Se Gee ee Ge Fe Ge Se tease 


SARA LSSSVEARAN 


ttotatttt td 
WN & & 
m—OO® 


BEGIN 
ist ILL CO. -UCBCUCE_L_BUF SIZE], .UCBCUCE_A_SCR_CHAR_SET BUF J); 
| 


dD 8 
. SMINIMUM_UPDATE = Minimum update calculatio 16-Sep-1984 AX-11 Bliss-32 V4.0- Page 11 
-045 SMGSSERASE_PASTEBOARD= Clear Screen 14-Sep aa hi 99: 39; 3 SMGRTL.SR atisneminoey 6 B52;1 : (6) ne 
; 334 4 i i*th hysical (1,1) 
; ! The sical cursor moves to (1,1). 
i 399 a ei ee 
; 400 ? $ 
; 401 WCBCWCB_W_CURR_CUR_ROWJ=1; 
; 108 6 WCBLWCB_W_OLD_CUR_ROW) “} 
; 40 6 WCBLWCB_W_CURR CUR ARE 
: 404 66 wCBCWCB_W_OLD_CuR_COL 
; 405 (661 
; rt bo 96 \+ 
; 40 603 ! The Line characteristics get set back to 0. 
; 408 reg != 
; 409 5 
; 410 298 . CHSFILL(O,.WCBCWCB_W_NO_ROWSJ+1, .WCBCWCB_A_LINE_CHAR]); 
; $1) B66/ CHSFILL(O, .WCBCWCB_W-NO-ROWSJ+1, .WCBLWCB-A_-SCR_CINE_CHAR]); 
; 418 0669 R® TURN SS$_NORMAL 
: 414 0670 
: 4415 0671 1 END; ! routine SMGSSERASE_PASTEBOARD 


-EXTRN SMGSGET_TERM_DATA 
01FC 00000 sENTRY SMGSSERASE_PASTEBOARD, Save R2,R35,R4,R5,R6,-; 0565 


58 000000006 00 9€ 00002 MOV SMGSGET_TERM_DATA, R8 : 

§ 10 ¢ 6009 SUBL2 #16, SP F 
i 04 AC DO 0000 MOVL PBCB, R2 : 0607 

52 DD 0001 PUSHL F 

0000v CF gi FB 0001 CALLS » SNGSSELUSH _BUFFER : 

6 0 pO 0001 MOVL STAT us F 
09 56 E€8 OOOIA BLBS Minas : 0608 

56 DD 0001D PUSHL ; 

000000006 09 01 FB OOOTF CALLS #1 use ; 
C2 9E 00026 18: MOVAB 64 ¢ R2) : 0614 

5 ce 9E 00028 MOVAB g (Re) » RS : 

65 05 000 0 TSTL (R5) ; 

04 12 000 BNEQ 3 

63 04 000 CLRL (R3) F 

21. 11 000 BRB a ; 

AE p4 0038 2%: CLRL INPUT_ARGS ; 

AE OF A PUSHAB INPUT “ARGS : 

¢ DD PUSHL 0(R2) ; 

D 0004 PUSHL ; 

¢ F 4 PUSHAB 2 ii ; 

F 3C 00048 MOVZWL # 6 16(SP) ; 

AE F 0004 PUSHAB F 

55 DD PUSHL 3 

of FB CALLS 6. ieee TERM_DATA : 
Ce be 6 § 3$: OV ta ; 0615 

64 vo oF PUSHL  (R4) : 

DD Bs3 PUSHL  (R3) : 

DD 0006 PUSHL R ; 

Fe 8 #3, OUTPUT : 

D OVL RO, STATUS ; 


8 
SMGSSMINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum update calculatio 16-5e -1984 754: AX-11 Bliss-32 V4.0-74 Page 12 
a th SMGSSERASE_PASTEBOARD= Clear screen “ 1 ~g00n 138% 9039.80 SMGRTL.SRCISMGMINUPD B32; 1 * as 
38 56 OE C BLBC STATUS, 7$ : 061 ; 
és p F TSTL (RS) ; $83 ; 
4 BNEG © 4$ ; : 
63 p CLRL —- (R3) : ; 
1F 11 0007 BRB 55 : : 
04 AE ps 77 4$: CLRL _—sINPUT_AK“S : ; 
4 AE 9F OOO7A PUSHAB INPUT~ARG- : ; 
64 DD 0007D PUSHL  (R4) : ; 
; D 0007F PUSHL RS ; ; 
9100 ¢ F 1 PUSHAB 2 (R2) ; ; 
10 AE 1DA F C 5 MOVZWL #474, 16(SP) ; ; 
a Ss a | : 
68 06 FB 0095 CALLS #6, SMGS$GET_TERM_DATA : ; 
78 E9 00093 5$ BLBC STATUS, 11$ : : 
64 0D 096 6$ PUSHL  (R4) + 0629 ; 
: DD 0009 PUSHL (R3) : : 
DD 0009A PUSHL Re : : 
0000v ct g FB 0009C CALLS #3, OUTPU : : 
6 0 D0 OOA1 MOVL RO, STATUS : ; 
04 56 EB 000A BLBS STATUS, : 0630 ; 
50 56 DO OO0A7 7$: MOVL STATUS, RO F ; 
04 OOOAA RET : ; 
56 08 A2 00 S0AB 8$: MOVL 8(R2), WCB + 0636 ; 
57 8 A6 DO OOOAF MOVL 40(WCB), R7 + 0637 F 
57 20 6E a o0088 moves #0, (SPS, #32, R7, a8(WCB) ; : 
57 20 6E a 69 2¢ O00BA movcS #0, (SP), #32, R7, @20(WCB) ; 0638 : 
57 00 6E ae 00 2c 900¢) movcS #0, (SP), #0, R7, a12(WCB) + 0639 3 
57 00 6E 1g 0 2 a90c8 movcS #0, (SP), #0, R7, a24(WCB) ; 0640 : 
10 Ab Dd OOOCF TSTL  16(WCB) + 0641 : 
07 1 00002 BEQL : ; 
57 00 6E . 00 2c 0004 MOVCS #0, (SP), #0, R7, a16(WCB) > 0644 : 
1C Ag D5 09008 9$: TST 28 (WCB) + 0647 
57 00 6E re 00 2c age MOVCS #0, (SP), #0, R7, a28(WCB) + 0650 
24 A6 00010001 BF v0 OE? 10$: MOVL 465537. 3 (WCB) + 0658 
ta 00010001 F p EF MOVL #65537. 32(wCB) : 0657 
5 2 As ¢ OF MOV ZUL 2(WCB). R + 0666 
57 00 6E . 00 BC ty MOVCS #0, (SP), #0, R7, a44(WCB) ; 
57 00 6E - i 2c 0104 movcS #0, (SP), #0, R7, a48(WCB) + 0667 
1 01 MOVL #1, RO > 0669 
" 9 it 11$: RET : 0671 


; Routine Size: 271 bytes, Routine Base: _SMGSCODE + OOSE 


; 
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7 ZSBTTL ‘SMGSFLUSH_ BUFFER = Flush all buffered output to terminal’ 
GLOBAL ROUTINE SMGSFLUSH_BUFFER ( 


PASTEBOARD_ID 
)s 


+t 
FUNCTIONAL DESCRIPTION: 


This routine causes all output which has been buffered up but 
not yet sent to the termina (te e output at once 


CONAUS WO DONO 


Coco cece CoCo Oo O08 SI IN I 


G3_WRONUMARG prong number of arguments. 
SMGS_INVPAS_ID Invali 


SIDE EFFECTS: 
NONE 


d pasteboard id. 


1 
1 
1 
1 
ft 
6 1! 
6 1! 
a 
6 i It does not matter our caller is also buffering output. 
6 : When a user requests a flush, we FLUSH. And NOW. 
é ; CALLING SEQUENCE: 
6 i ret_status.wlc.v = SMGSFLUSH_BUFFER ( PASTEBOARD_ID.rl.r ) 
688 i | FORMAL PARAMETERS: 
0690 1: PASTEBOARD_ID.rl.r The id of the PASTEBOARD for which the 
b083 ! flushing action is to take place. 
693 IMPLICIT INPUTS: 
8032 : None 
O63? IMPLICIT OUTPUTS: 
0699 1! None 
0700 1! 
th } COMPLETION STATUS: 
6 1 i SS$_NORMAL Normal successful completion 
4 1 SMGS$ 
1 i 
1! 
1! 
, 3 
1 !- 


Bli 


shcne V4.0-74 
«SRC JSMGMI 


NUPD .B52;1 


SREP RRINTRUR_UP 


SMGSSMINIMUM_ UPDATE = Minimum update calculatio 1 
SMGSFLUSH_BUFFER = Flush all buffered output to 1 


' Address of associated 
! pasteboard control block. 


seonate pasteboard control block and call inner routine to do the 
' work. 


SSMGSGET_PBCB(.PASTEBOARD_ID,PBCB); 


RETURN SMGSSFLUSH_BUFFER(.PBCB) 
! Routine SMGSFLUSH_BUFFER 


SSNS NSS 


Oo 


; Routine Size: 


Routine Base: 


50 
00 


o 
= 


0 

30 000000006 
50 00000000600 
CF 


ov Owmouw—Ww 
Soo *"O@MOoO-m 


_SMGSCODE + 


' Get address of PBCB 


SMGSFLUSH_BUFFER, Save 
@PASTEBOARD_ID, RO 


RO, PBD_L_COUNT 


RO, PBD_V_PB_AVAI 
#SMG$_INVPAS_ID, 


PBD_A_PBCBLROJ, PBCB 
#1, SMGSSFLUSH_BUFFER 
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1 
CK_H 
ZSBTTL "SMGSSCHECK_HDWR_ SCROLL = Check to see if use of hardware scroll will help’ 
GLOBAL ROUTINE SMGSSCHECK HDWR_SCROLL ( Z z ct Ste: 
POCB : REF SPBCB_DECL 
= 


—un 
AZ 


eRe MN UP SesEC 
; 475 


~~ 


This can be done with a single compare instruction since the 
areas are continguous. 


aN 
AAA 
wns 


If these areas are the same, the probability is very high that 
the text buffer was changed by scrolling Line N poreuse M 
upward By one Line and inserting a new line (M) into the buffer. 
If we determine that this is the case, we use the hardware to 
accomplish the scroll for us, update the screen text buffer to 
reflect fhe effects of the scroll, and then fall into the 

normal minimal update logic to patch up minor differences, e.g., 
attribute information. 


: 4 i 

3 tf 7 

3; 4 7 

; 4 7 'e4 

; 2 ; f FUNCTIONAL DESCRIPTION: 

3; 4 § 735 This routine checks to see if the WCB text buffer has changed 
s 6 7 $ in such a way that we gen optimize fhe output by using 

: ? ? 4 hardware scrolling regions and letting the terminal scroll. 

; 4 : Screen Text Tex 

s 6 Buffer Buffer 

3; 4 741 

3 489 rg ¢oeree ese seas eee + beeen re cena oo mm eS 

; $90 74 { : H 

; 491 744 i ; H H 

; 49 745 N ===>} H ' | <== N 

; 49 74 H H H H 

3 494 74 i } H H 

; 495 74 M ===>} ' H | <--- 

; rey 74 ‘ ' H ' 

; 49 750 : ' : H 

8 498 7 1 down ssc eno eee acoaa} ger ecer neem emcee nan + 

; 499 7 § 

; 500 75 If information in the PBCB tells us that Lines N through M 

3 4 Le of the text buffer have been changed, we check to see if 

: 08 736 Line N-_ of Text Buffer = Line N+1 of Screen Text Buf. 
3 Be eH Line N+1 of Text Buffer = Line N#2 of Screen Text Buf. 
; 759 : 

s $$ 760 " 

; 50 761 

3; 30 76 Line M-1 of Text Buffer = Line M of Screen Text Buf. 


In an analogous fashion, we also check to see if the change 
represents a downscroll of one Line. 


This routine is galled only when it has already been established 
that we are dealing with a device that has settable scrolling 
regions and at least 2 consecutive lines have changed. 


CALLING SEQUENCE: 


ee a a a at a at = = = = = = 2 — _s 2 2 = SS Ss SS 2 2 SS 2s a Ls St 2 2 2 =e 


PUPV PULP DV DV LV PVDVSPUDVLVSPULPUSVLU SUSI STITT IIIT SIS SII STITT Le 


WAROPOPOPOPONPONINNY 2 2 we 


SOOOSOOOOOSOOOCOSOCOCOCOOCOSOOOOOOOOOOOoOOoOO 
SANS 
= o 


=OOONOUSWN OOOO ewn "0 0@ 


a a | 


FORSMINIMUM-UP SRGSSCHECR HOUR. SCROLL ~"Check to. see ff use of igs eras P8:59:5¢ — ESNantu* see SsmGniNdpp -882;1 


: § , 5 } ret_status.wic.v = SMGSSCHECK_HDWR_SCROLL ( PBCB.rl.r) 
; t : | FORMAL PARAMETERS: 

: t PBCB.rl.r Address of a Pasteboard Control Block 
: 7 | IMPLICIT INPUTS: 

A ee | ee 

; 4¢ 795 i IMPLICIT OUTPUTS: 

: 544 £38 1 NONE 

: 545 798 1 i 

i 34 7 | COMPLETION STATUS: 

; 2 if : SS$_NORMAL Normal Successful Completion 

; 9 : i SIDE EFFECTS: 

; 05 1! NONE 

; 06 1 i-- 


—— — — — -—- -- — —__-}_ 


SISSELSSPEL ES Salo AIS SESS OR OS SEE 


PPPS APPAPA AAI 


NIMUM_UPDATE = Minimum 
ECK_HDWR_SCROLL = Check 


STATUS, 
WCB : REF 


TB, 


STB, 


WIDTH, 


BTC, 


LCS : REF 


cn “ 
Q- z 
2D . 
. 


4 
ee 


8 
update catculatio Tb-Sep-198s 00:54:58 YAK=It Bling 


! Status of subroutine calls 
SWCB_DECL, ! Address of associated Window Control 
! Block 


! Index of Ist byte in WCB text buffer 
! that may have been changed. 


! Index into WCB Screen Text buffer 
! of starting byte position which 

! should be the same if changes were 
! made via a single-Line scroll 

! operation. 


Lengwerd Councorger of 
-WCB CWCB_W_NO_COLS] == extracted to 
yield better code. 


Number of bytes that need to be 
compared. 


VECTOR C,BYTEI, ! Address of Line 
' characteristics vector assoc 
i with WCB CWwCB_A_SCR_TEXT_BUFJ. 


Top or bottom Line of scrolling region. 
=.LCR if scrolling up 
=.FCR if scrolling down 


First changed row = .PBCB CPBCB_W_FIRST_CHANGED ROW) 
Last changed row = .PBCB CPBCB_W_LAST_CHANGED_ROw) 
Extracting the fields above gives better code 


! Delta number of Lines (-1) that changed, = .LCR - .FCR 


SARIN UP 


3 


bt 0 tet tety tty tyyr4 4 9 99 4 
PAEQEAAGINGITIUIUIII EE 


WO OONOUE WH "O0OOnNOu 


tt 
OOoOCCoooCooooo 

‘GO G9 CO CD Cd Cd Co OD: 

SNA AAO OO 


Win COnNOous 


ONAN 


SOONG USWN “OOOO UES WN O 
(G2 Cd 09 C0 Cd Co OD CD: 


APOTEPOPoronoforforfnonyd 


ADAAAAAAAAAAA SA AAAASCAOAO 
OOOOCOCoCooooo 


Win 
wn 
Sooo 
OO8 NOE WN OC OONOUSE 


SHGRAEG 


AORAGCA COD 
SOOONOUS wr 00 


‘C0 Gd Cd Co Oo Cd Cd C9 09 09 0D C0 CD C0 OD: 
ooowowovovd 
SSSSSREsZ2 


rSSSSSSSS35 
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WCB = .PBCB CPBCB_A_w(B); 


1+ 
Extract following fields for better code generation. 


Page 18 


N 74 
E SMGRTL.SRCJSMGMINUPD .B52; 1 (11) 


WIDTH = .WCB CWCB_W_NO_COLS); 

FCR = .PBCB [PBCB-W-FIRST CHANGED ROW); 

LCR = .PBCB [PBCB_W"LAST_CHANGED_Row); 

DL = .LCR = .FCR; ! Known to be 1 or greater 


1+ 
! Calc. the starting byte position in the text buffer that could have 
H changed. 


TB = (.FCR = 1) * WIDTH; 


1+ 

! Calc. the corresponding byte position in the screen text buffer that 

! should match if change was brought about by an upward scroll of one 
Ss a@ common phenomena. This will be one Line further down in the 
le ? 


STB = .1B + .WIDTH; 


1+ 
' Calc. how many byte positions in the text buffer should match the 
given slot in the screen text buffer. 


BTC = ( .DL ) * .WIDTH; 


1+ 
! Check to see if an upscroll or downscroll of one Line accounts for 
the differences between the text and screen buffers. 


iF (CHSEQL ( .BTC, .WCB CWCB_A_TEXT_BUFJ + .1B 
aes “BTC, .WCB CWCB"A~SCR_TEXT_BUF] + .STB)) 
SR = .LCR ! Will be upscrolling 


ELSE 
IN ! Check for Gounscrolting 
TB = .FCR * .WIDTH ; ! Line N¢1 


STB = .18 - .WIDTH ; ! Line N 
IF (CHSEQL ( .BTC, .WCB CWCB_A_TEXT BUF) + .1B 
ial BTC, .WCB CWCBTATSCR_TEXT_BUF] + .STB)) 
mes” = .FCR ! Will be downscrolling 
RETURN (SS$_NORMAL); ' Quit -- neither upscroll or downscroll 
! of 1 Line will do it. 
END; ! Check for downscrolling 
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o 
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! perform a down_scr .l in the top Line of the scrolling region, 


oo 
= 


! causing current .nes N through M to scroll either down or u 
®eeNOTE: Re 


this is not the best solution. Writing a <tP3 will 


oO 
= 
oo 


cause a blank line to be written with video attributes 
. n 


8 
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angie" SMOSSCHECK HOUR St OLL = Check fo see +f use of 1 =3007 1382 99:39:88 SMGRTL. SRC SMGMINUPD 69251 Page 413 
; 651 ! If we reach here, we have a candidate for scrolling. 
3 6 § § ! Check to see if physical scrolling region on the terminal matches 
3; 6 4 !' the area we want to scroll If not, set it to the desired region 
; ° ¢ g é and record where we left it. 
: 6 9 ; 
3 8 3 $08 If .FCR WNEQ .PBCB Pee WO SCROLL LINE) OR 
; $28 3 wi NEQ .PBCB LPBCB_W_BOT_SCROLL_LINE 
; 660 319 BEGIN ! Not where we want it, reset 
: $2) 318 4 fen” (STATUS = SMGSSFORCE_SCROLL_REG ( .PBCB, .FCR, .LCR)) 
3 oss 91h RETURN .STATUS; 
ose 317 END; ! Not where we want it, reset 
; o38 $19 Set physical cursor to either top or bottom Line of scroll region. 
: 670 921 2 
; 671 09 § SMGSSFIND_MIN_CURSOR_POS ( .PBCB 
: 67 09 “WCB fucB_u_oLD_CUR_ROwW , | Current 
; 67 924 -WCB CWCB_W_OLD_CUR_COLJ, ! Current 
oe Be if ios 
: er 03 ? 3 ! Desire 
3 o78 03 4 Update screen image with respect to current cursor positioning. 
: 6 0931 2 
; 681 0382 WCB CWCB_W_OLD_CUR_ROW] = .SR; 
; 68 09 WCB LWCB_W_OLD CUR COL] = 1; 
; 68 8 4 WCB WCB_W_CURR_CUR_ROW = SR; 
3 684 935 WCB CWCB"W"CURR-CUR-COLJ = 1; 
OBE EL 
: re] 0938 i Set up base of Line characteristics vector for what is currentl 
; 688 0939 ! on the screen. This vector will have to have its entries shuttled 
: 94 O34} } up or down. 
; 691 94 LCS = .WCB CWCB_A_SCR _INE_CHAR); 
8 gs § OF Bae 
3 694 945 i Write a Line-feed 4 .0 the bottom Line of the scrol ing region or 

i 

: 94 ‘ 

: 950 ! of ‘‘norma This Line should really be line M, with 

2 951 : all its video attributes in all their glory 

; 701 326 ! That takes too long to compute. We compromise with 

; 70 95 ! a line of normal blanks and let the rest of Min_Upd 

: 70 954 ! straigten it out later, eyen though the Line will get 

3 oe Be? ! written twice and will flicker at low baud rates. 

: He i 

i. 958 2 IF .SR EQL .LCR 
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m 8 
RUMOUR SCROLL="Check fo see tf use of ie-sep-1984 19:09:56 
HEN 


BEGIN ! Upscroll action 


re 


SMGMINUPD .B32;1 


Upscroll by outputting a <LF> in Last Line of scrolling region. 


SSMGSGET_TERM_DATA(SCROLL FORWARD); 
Lf ,PCBLPBCB_L_CAP_LENGTR EQL 


RETURN 1; 
STATUS = SMGSSOUTPUT (.PBCB, 
IF NOT .STATUS THEN RETURN .§ 


STATUS = SMGSSOUTPUT (.PBCB, 1, UPLIT BYTE(10)); 
IF NOT .STATUS THEN RETURN .STATUS; 


srocerrecs L_CAP_LENG 
PeceLPece_R_CAP BUF FE 


o Lines that got scrolled up. 


CHSMOVE ( .DL, LCS C.FCR#1), LCS C.FCRI): 
LCSC.LCRI=0; 


END ! Upscroll action 


d 
l 
Vv 
L 


BEGIN ! Downscroll action 
1+ 


1 
a’ e screen Line characteristics vector up by one to correspond 


| Downscroll by emitting a reverse index or a down-scroll escape sequence. 


SSMGSGET_TERM_DATA(REVERSE_INDEX); 
IF iP BCOLPBCB_L_CAP_LENGTHI EQL 0 


BEGIN 
SSMGSGET_TERM_DATA(SCROLL 
IF_.PBCBCPBCB-L_CAP_LENGT 
THEN 

. RETURN 1; 


gevers olds 


Al €QL 0 


STATUS = SMGSSOUTPUT (.PBCB, -PBCBEPBCB_L_CAP_LENGTH] 
- PBCBLPBCB_A_CAP~BUFFERJ); 
IF NOT .STATUS THEN RETURN .STATUS; 


+ 
! Si ide scrogn Line characteristics vectcr down by one to correspond 


to Lines that got scrolled down. 


CHSMOVE ( .DL, LCS C.FCRJ, LCS C.FCR+1)); 
LCSC.FCRI=0; 


END; !' Downscroll action 


n 8 
MGSSMINIMUM_UP SMGSSMINIMUM UPDATE = Minimum update calculatio 16-Sep-1984 00:54: AX-11 Bliss-32 V4.0-74 P 1 
pngeen SMGSSCHECK_HBWR_SCROLL = Check fo see * use of 12-808-1 382 90:36:88 SMGRTL. RCISMGMINUPD .B 2;1 age 49} 
5 16) ] } 
; re 101 1+ 
3 7 3 101 ! Update screen buffer to reflect what scrolling operation should have 
: rg ; 9 ;_done to the screen. 
: iio 1 g ! Text that got scrolled, move screen text buffer by 1 Line 
3 ag 1 CHSMOVE ( .BTC, 
; 77 1024 -WCB CWCB_A_SCR_TEXT_BUF] + .STB, 
: oe ! é -WCB LWCB_A_SCR_TEXT_BUFJ + .1B); 
: 77 1 ' attri b h 
B78 } ; iwaescdoyteg pret go along with text that scrolled 
3; 778 10 -WCB CWCB_A_SCR_ATTR_BUF) + .STB, 
; £9 10 9 “WCB CWCBTA-SCRIATTR-BUF] + .1B); 
: 781 10 ! Blank Line introduced by scroll operation 
3 ree 10 5 CHSFILL ( &C° ‘, J . ' Fill 
; 78 1034 WIDTH, ! No. of chars 
; 784 1035 .WCB CWCB_A_SCR_TEXT_BUFJ + (.SR -1) * .WIDTH); 
: ree er ! Attributes for blank Line introduced by scroll 
: 78 Oe ! NOTE: See note above. This Line of code is related. 
; 1920 CHSFILL ( 0, im ait 
: 1041 »WIDTH, ! No. of chars 
3 1048 .WCB CWCB_A_SCR_ATTR_BUF] + (.SR -1) * .WIDTH); 
; 1044 ; RETURN SS$_NORMAL 
; 1046 1 END; ! Routine SMGSSCHECK_HDWR_SCROLL 
OA OO17E P.AAA: .BYTE 10 $ 
OFFC 00000 - ENTRY verse HDWR_SCROLL, Save R2,R3,R4,R5,.- ; 0729 
RS R7,R8,RI,R10,R11 3 
5E 14 C2 0000 suBL2 #20, §P ; 
SA 4 AC 00 0000 MOVL PBCB, R10 > 0845 
58 8 AA 009 MOVL  8(R16), WCB F 
7E 0 A8 OD MOVZWL oi uce) WIDTH 3 ee 
56 QOA8 CA 11 CVTWL $8(R 19), FCR > 085 
of AE OOAA gf 16 CvTW 170(R10), LCR 3; 085 
7E 4 af 6 § 1C SUBL FCR, LCR, DL 3; 085 
5 FF AG : 021 MOVAB -1(R6), RO : 0862 
58 50 4 AE § 025 MULL WIDTH, RO, TB ; 
4 BEGB 9F A PUSHAB aWIDTH(TBS : 87) 
7E 04 AE 8 AE C L3 WIDTH, DL, BIC ; 78 
54 4 AE MOVL. STB, R4 ; 0884 
14 BB44 08 8848 gE : is nt ere. a8(WCB)CTB), a20(wCB)CR4) : 
57 10 AE 06 4 MOVL LCR, SR : 0887 
1F 11 0004 BRB $ 3 
58 56 0c AE C5 00048 1$ MULL3 WIDTH, FCR, TB ; 0890 


re 
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04 AE B 


4 

14 BB44 08 8848 

57 

56 OOF4 CA 10 
10 =AE OOF6 CA 10 
0000v CF 

14 AE 

40 

7E 

7E 

000000006 00 

4 As 

of 

0 As 

22. AB 

59 

10 AE 


0000v CF 
14 =A 


6649 01 A649 


58 
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WIDTH, TB, STB 
STB, R4 
a a8(WCB)CTBJ, a20(wCB)CR4I 


FCR, SR 
#0, #16, 244(R10), FCR 


» LCR 
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MGSSFORCE_SCROLL_REG 
TATUS 
S, 6$ 


> > ODD 
comm 


T 


ND_MIN_CURSOR_POS 


BOBO BAW BOVDAD Tw 
O~w~we we OO 


cs an7 se ss OMmm 
nw 


3 
ADO DBD - DUNN" OOD — +O "MO HO 


ae 


1 
#3, SMGSSOUTPUT 
RO, STATU 
STATUS, 7$ 


De VOOM 
oO —e 


9 
(R2) 
1 


INPUT_ARGS 
INPUT ARGS 


Hani 
256(R10) 
a 94 3 esp) 


oP 
SHGSGET_TERM_DATA 

TATUS, 12$ 

R 
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891 
892 


895 
908 


0909 
0912 


0995 
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Be Ge Be Se Ge Se Se Ge Ge Se Fe Se Se Ge Se Be Fe Se Ge Se Se Se Se Se Ge Se Se Fe Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Sete ee Se Ve Se See ee Sets as 


+f aia UP Naty IMUM_UPDATE = Minimum update spews atte 


SSCHECKCHDUR SCROLL = Check to see bse reee 1 8Be P8i8g:8e  HeMcAT Osa isheminuey B92: 1 Page 495 


oe 


0 
3 p 11F TSTL (R3) : 0998 s 3 
4 1 BNEG = 11 : 31 
2D 1 CLAL (Re) : 7 1 
A 11 001 BRB 13 : 71 
18 AE 1 4 107 118 MOVL #1, INPUT_ARGS : 3 i 
iC AE 1 p 128 MOVL (#1, INPUT~ARGS+4 : 7 1 
18 AE 9F OO1OF PUSHAB INPUT ARGS : 31 
0104 cA DD 001 PUSHL O(RTO) : 31, 
2 0D 001 PUSHL §=R ; ar 
1 cA F 001 PUSHAB 2 6(R19) : 31, 
20 AE 2 F 3C 001 MOVZWL #562, 32(SP) : 71 
AF F 0014 USHAB 56 (SP) : 
53 DD 0014 PUSHL R : 
000000006 90 Q FB 14 CALLS #6 SNGSGET_TERM DATA : 
¢ E Ode 128 BLBC = STATUS, : 
$ D3 19 13$ TSTL (R2) : 0999 
13 001 3 BEQL 18$ ; 
0104 CA DD 00155 14$:  PUSHL  260(R10) + 1005 
g2 DD 00159 PUSHL (Re) + 1004 
A DD 00158 PUSHL 1 : 
0000v CF 03 FB 00150 CALLS #3, SNGSSOUTPUT : 
14 AE 0 dO 00162 OVL RO, STATUS F 
0 14 AE E8 00166 BLBS STATUS, Ves + 1006 
50 14 AE DO 0016A 15$:  MOVL STATUS, RO ; 
04 0016E RET : 
01 A649 6649 08 AE 8 0016f 16$:  MOVC3 ODL, (FCRICLCS], 1¢(FCR)CLCS) : 101 
6649 94 00177 CLRB ss (FER) CLS + 101 
56 04 AE DO 0017A 17$:  MOVL STB, R6 : 102 
14 8848 14 BB46 6E 28 0017E MOVC3 BTC. a20(WCB)CR6], a20(WwCB)CTB) ; 
04 AE DO 00186 MOVL. STB, R6 + 1030 
18 B84B 18 8846 5 28 0018A MOVC3 BIC, a24(WCB)CR6], a24(wCB)CTB) F 
D7 00192 DECL. —R7 : 1035 
57 Oc AE C4 00194 MULL2 WIDTH : 
OC AE 20 6E "" 3aee 2c a019e movcS #0, Hep? #32, WIDTH, a20(WCB)CR7) 
OC AE 00 6E a mi 2¢ aDial MOVCS #0, (SP), #0, WIDTH, @24(WCB)CR7) ; 1042 
50 01 DO OO1AA 18$:  MOVL #1, RO + 1044 
04 OO1AD 198: + 1046 
3; Routine Size: 430 bytes, Routine Base: _SMGSCODE + 017F 


—— —E -y 


D9 | ! 
“Hn 1885 PO:ESiEE | PaMSAT Obese ayE8s 788... poor 3 58 


SREP PRINT? SMGSSMINIMUM UPDATE = Minimum update calculati ] 
ffered output to terminal’ 
B)= 


r) 
SMGSSFLUSH_BOFFER = Flush all buffered output t 
b 


; 797 1047 1 ZSBTTL ‘SMGSSFLUSH pyreen - Flush all bu 

; 798 1 8 1 GLOBAL ROUTINE SMGS FLUSH_BUFFER ( P_PBC 

; 799 1049 1 !4+ 

; 64 : 3} ! FUNCTIONAL DESCRIPTION: 

: oe 1 § 1 i This routine causes all qecyut which has been buffered up but 
3 8 ! 7 : not yet sent to the terminal, to be output at once. 

: 05 s | CALLING SEQUENCE: 

: 4 } § ! ret_status.wic.v = SMGSSFLUSH_BUFFER ( P_PBCB.rab.r ) 

: 03 53 | FORMAL PARAMETERS: 

: 11 1061 1! P_PBCB.rab.r The pasteboard control block address for which 
: \¢ 1008 ! the flushing action is to take place. 

: B14 10gé 1 IMPLICIT INPUTS: 

3 a2 1065 1! 

: 816 10 13 PBCB OEE eT pur EN number of characters in buffer 
3 st : PBCBCPBCB_W_OUTPUT_BUFFER address of buffer 

: 19 1069 { IMPLICIT OUTPUTS: 

; 631 + 34 ' PBCBCPBCB_W_OUTPUT_BUFLEN) set to 0 (indicating buffer empty) 
: 638 1978 1 | COMPLETION STATUS: 

; 824 1074 1! 

; 5 1075 1! SS$_NORMAL Normal successful completion 

: $ 1978 : } SS$_xyz errors from SMGS$SOUTPUT. 

: 828 1078 1! SIDE EFFECTS: 

3 +] 1079 1! 

3; § 1080 1! NONE 

; 831 1081 1 !-- 


11 itaiaiaai uP sneeenin 


MUM yepare - Minimum update calculatio 16-sep-1984 9: 33: 28 AX-11 Bliss-32 V 


P 5 | 
SMGRTL’ SREISHGMY NU 5 B82: 1 age 493 


"6 


] 
SM ¥ Flush all buffered output t Sep-1 | 
; 3 i 3 BEGIN | 
: 1084 ¢ BIND | 
: 1 PBCB ss ==: P_ PBB : $PBCB_DECL, ! Pasteboard control block 
: B38 1089 OUTBUF = ‘PBCBFPRce. a ouTPUT_BOFTER! 9 eat erent mee | 
: 23 8 OUTLEN = PBCBCPBCB~W-OUTPUT~BUFLEN : WORD; 
; 41 30 LOCAL | 
: B43 109¢ STATUS; 
BOB. | 
; Bey ing § | _do nothing if the buffer is empty. 
Py y 
: 849 1098 2 IF .OUTLEN EQL 0 
; 850 1099 3 THEN RETURN SS$_NORMAL; 
: B2) 01 3 4s 
: g2¢ 1136 i Out tput the buffer no | 
; 854 110 ! Save time b y calling” OUTPUT directly rather than SAGSSOUTPUT. 
; 855 1104 ' (SM *ssoutpuy would try to buffer the text up anyhow.) 
Bo ig pe 
: 858 1109 STATUS=OU PUT (PBCB, .OUTLEN, OUTBUF ); 
: 859 1108 5 IF NOT .STATUS THEN RETURN’ .STATUS; | 
: Bet 1140 + 
: 86 1111 i Note that the buffer is now empty. 
; 86 1118 in 
: 864 111 
3 eH 4143 § OUTLEN=0; 
3 867 1116 y RETURN SS$_NORMAL 
: 869 1118 1 END; ' Routine SMGS$S$FLUSH_BUFFER 
0004 0000 .ENTRY SMGSSFLUSH_BUFFER, Save R2 : 1048 
52 m At D 0002 HOVL. P_PBCB, R27 : 1086 
2 Ae B TSTW = - 1T4(R25S : 109 
141 60009 Bru! 1$ F 
6c OA pd 0008 USHL 108¢R2) + 1107 
7E 72 Ad 3 0000 MOVZWL 1. ‘R2), =(SP) ; 
DD 0001 PUSHL Re ; 
0000v CF FB 1 CALLS #3, OUTFLUT ; 
06 E 019 BLBC STATUS, 2$ > 1108 
72 A2 64 0001C CLRW 3-194 (R25 > 1114 
50 0 Bd OO1F 1$: MOVL #1, R > 1116 
4 00022 2$: RET : 1118 


; Routine Size: 35 bytes, Routine Base: _SMGSCODE + 032D 


ee 


fF 9 
FEGgSUNINUM-UP SHESSFLUSHLBOFFER = Flush elt buffered output ¢ iacsepei9be SS:9se0  Eemantu Saedsnemtnubo 682; 1 3 178 


ore = 


9 
USCROLL-REG = Force physical scrottin le-sep-19be 19:09:54 


cE 
ZSBITL ‘SMGSSFORCE SE ROLL REG - Force physical scrolling regions’ 
GLOBAL ROUTINE SMGSSFORCE-SCROLL_REG ( 

PBCB : REF S$PBCB_DECL, 


TOP_LINE, 
BOT"LINE 


)=z 
'e¢ 


NIMUM 


I 4.0-74 
SFOR . 


AX-11 Oh leg eae Vv 
RC JSMGMINUPD .B852;1 


Page 27 
SMGRTL. . a 


SAGSSMINIMUM_UP SM 


This routine performs three actions: 
a). Construct escape sequence needed to set scroll 


WN" OODONOU SE wr 


region, 

b). Output this sequence to terminal. 

c). epeyse PBCB to reflect new position of scroll 
region. 


The physical cursor is left in first row of scrolling region, 
COLUAN’ 1. “~ 


‘GD Cd Cd OS CO CD CD CD. CD CD CD 


CALLING SEQUENCE: 


891 

96 ret_status.wic.v = SMGSSFORCE_SCROLL_REG ( 

9 PBCB.rab.r 
TOP_LINE.rl.v 
BOT"LINE.rl.v5 


FORMAL PARAMETERS: 


co 
oOo 
@ 


ou Ad 


PBCB.rab.r 
TOP_LINE.rl.v 
BOT_LINE.rl.v 


Address of Pasteboard Control Block 
Top Line of physical scroll region desired. 
Bottom Line of physica scroll region desired. 


IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION STATUS: 


SS$_NORMAL 
SS$_xyz 


SIDE EFFECTS: 
Physical scrolling region changed. 


Bees e eS SeSEes3ss 


Normal successful completion 
errors from SMGS$$OUTPUT. 


Be Se Se Se Se Se Se Se Se Ge Se Se Se Ge Ge Ge Se Ss Se Ge Se Ge Se Ge Se Se Se Se Se SH Oe Se SF He Os Se Se Se Se Se Se Ss Se Se Oe Se Se eee 
oO 
u“ 

a a a ad a ed 8 2 = 8 8 8 


wooOwoOoOwowowowovond 
a td td od od 
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| 
i FUNCTIONAL DESCRIPTION: 


H 9 
SSMINIMUM_UP SMGSSMINIMUM UPDATE = Minimum update calculatio 16-Sep-1984 00:54: AX=11 Bliss-32 V4.0-74 e 
anges" SMGSSFORCE_SCROLL_REG = Force physical scrollin 12286871388 99:59:88 SMGRTL.SRCISMGMINUPD .B 231 age 18 in 
921 BEGIN 
LOCAL 


SSMGSGET_TERM_DATA(SET_SCROLL_REGION,.TOP_LINE,.BOT_LINE); 


MEWN—OOONOUNS wiry 


\+ 
Output BUFFER. 


LELLL SSCcccoclccoocoooooooo 
MEAN OS OONAUNE WO ODNOU EWN OC ODNOUS WOO 


FRIED DIDI DIDI at tt ad ot ed td ot ed 


; | 
2 H : 
: 1 WCB : REF $SWCB_DECL, 3] 
; STATUS; ! Status of subroutine calls : 
; 1124 ¢ WCB=.PBCBCPBCB_A_wCB); : 
; 1 ‘+ :1 
; : Create escape sequence needed into capability buffer. ‘ : 
; 117 34 
3 1 3 1 
; 1 3 1 
; 1 3 1 
; i a 
: 938 1 if NOT (STATUS = SMGSSOUTPUT ( .PBCB, -PBCBEPBCB L_CAP_LENGTH] 3:1 
; 939 1 . PBCBLPBCB_A~CAP~BUFFERJ)) 31 
: 940 1 THEN 3 1 
: 34] RETURN .STATUS; +e 
: 308 119 4 :1 
3 rf. | 4 : Record where scrolling region now is. : : 
: 946 119 21 
: 947 119 PBCB Pee orm scnollLINEd = .TOP_LINE; 3 1 
; 948 4 PBCB CPBCBW~BOT~SCROLL-LINE) = .BOT~LINE: : } 
: 950 119 + :4 
3 952 : , ; Move the cursor to the first row of the scrolling region, column 1. : : 
: 95 120 21 
; 994 0 $SMGSGET_TERM_DATA(SET_CURSOR_ABS,.TOP_LINE,1); i | 
: 956 120 rr i. 
3 Or 1 8 : Output BUFFER. : 1 
; 958 1 j- i] 
: 959 1 3] 
; 960 1 IF_.PBCBCPBCB_L_CAP_LENGTH] NEQ 0 3 1 
: 961 1208 THEN BEGIN 31 
H 3e$ 1209 4 IF NOT (STATUS = SMGSSOUTPUT ( a -PBCBCPBCB_L_CAP_LENGTH], 3:1 
> 96 1210 4 .PBCBCPBCB_A_CAP_BUFFERJS) :1 
3; 964 1211 THEN 7 
; 965 1 \¢ RETURN .STATUS; 31 
: 266 121 | 
; 96 1214 '¢ 3 1 
; 968 1215 ' Record where the cursor is now. 3 1 
3 5 +4 1 16 != 3 1 
; 970 121 a | 
: 971 1218 WCBCWCB_W_CURR_CUR_ROW]=, TOP_LINE; 3:1 
: 376 121 WCBLWCB_W_CURR_CUR_COLJ=1; | 
: 97 1220 WCB WCBWOLD CUR ROW TOP_LINE; 31 
i 9th 1221 WCBCWCB-W-OLD-CUR-COLJ=1; 31 
; 976 1558 END; 

; 97 1224 


et Th 
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| 1 
SMGSSFORCE_SCROLL_REG = Force physical scrollin 14-Sep- SMGRTL.SRCJSMGMINUPD.B 
; 97 1225 2 RETURN SS$_NORMAL 
3 oF 1 8 
; 980 1 E 


ND; ! Routine SMGSSFORCE_SCROLL_REG 


01FC 00000 «ENTRY SOCRIFORCE SCROLL AEG. Save R2,R3,R4,R5,R6,- 
000000006 00 9 SMGSGET_TERM_DATA, R8 
10 ¢ #16, S 


off 8 8 


1120 


ooo 
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Dn 
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ee 


1$: MOVL NPUT_ARGS 
mova INE, ~ INPUT_ARGS+4 


RGS 


mr So 


INTORO 


01 
10 «AE 02 


MGSGET_TERM_DATA 
S, 4$ 
25, R5 


z2cvw BW DBD Jor 
~~ 


WII 
WMooc 


~ 
wr 
= wv 
So Cc 
< (7) 
& 5 
AAO BD BND 1 BN SK HPO 


DDARAPLAUIAEAS ZOWHD HD 


AT 
0¢ 
5) 
6) 


oom 


R 
CALLS 5, SMGSSOUTPUT 
RO, STATUS 


STATUS, 6$ 
MOVW TOP_LINE, reais t 
MOVW BOT tine. 46(R2) 


oS 

o 
COOCOOCOCOCOOOOOOSOSOSOSOOOCOOSOOOOOSoOOOoOoooO 
OOCCCOCCOCOOOCOCOSCOCSOOCO OOOO COOOOOOSOOoO 


3$ 
CLRL (R6) 


5 
3$: MOVL 23 INPUT_ARGS 
MOVL § TOP_LINE, INPUT_ARGS+4 
MOVL #1, INPUT_ARGS+8 
T_ARGS 


—~ ww 
NVA M QW OO SMS YS pate thy ay. 
v 
Cc 
wn” 
= 
cr 


SINAN AAA MMII EE Et 


POON POF ONMCOS PS PF VUMNOMISD SA9OMWOUI FP DOU yp 


SSS Saou ROM DA FS LOO NON VINEOOG Hmm 


R 

100 U 256(R2) 

10 AE $398 MOVZWL $s 16(SP) 
10 16(SP) 
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MODS RMONOS VOCS LSWUIOCO0OWO 
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ovoroun 
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INIMUM_UP snesen INIMUM_UPDATE = Minimum update calculatio 18-50 Sep-1 AX-11 Bliss-32 V4.0-7 Page 30 | 
snore" GSSFORCE_SCROLL_REG = Force physical scrollin Saat 0: 36; 8 SMGRTL.SRC SHEMINUPD 6 2;1 . aes 58 
7 13 O00A 8S : 71 
5 DD OO0A PUSHL  (R5) : 31 
DD Ae PUSHL  (R6) : 31 
DD PUSHL Re : 31 
0000v CF F AA CALLS #3, SMGSS$OUTPUT : 31 
7 D AF MOVL RO, STATUS : a | 
4 E B BLBS STATUS, 7$ : 31 
0 7 BO B5 6$: MOVL STATUS, RO : : L 
9 A 08 ac B B9 7$: MOVW Top “bine. 3 32(wCB) : 3 3 
A 01 8B B MOVW ; : 1 
4 A 08 at 8 ¢ MOVW To. bitices Bo cwce) ; :] 
A 0 8 ¢ MOVW : 7] 
5 1 p OCB gs: MOVL wi : : 1 
4 OOOCE 9$: RET : : : 
; Routine Size: 207 bytes, Routine Base: _SMGSCODE + 0350 : } 
:1 


K 9 

SSMINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum update calculatio 16-Sep-1984 00:54: AX-11 Bliss-32 V4.0-74 Page 31 
angie * SmCSSPBCB EXT. HANDLER - Exit handler 12-80 8-138e 90: 3giee SMGRTL. aeisneminien 62:1 . (16) 
; 9 ¢ 1 : ZSBITL ‘SMGS$SPBCB gxit wis - Exit handler' 
; 3 GLOBAL ROUTINE SMGSS$PBCB_EXIT_HANDLER ( P_REASON, P_PBCB ) = | 
; 3 5 | FUNCTIONAL DESCRIPTION: 
: 9 1 : 1 / This routine gets called on image exit once for 
. > 1234 1! each active pasteboard. It flushes the output 
3; 9 1235 1! on that device. No hush occurs, however, if 
: 990 1 6 1 the CLI forced the exit, as in the user typed 
; 833 } { ! CTRL/Y then EXIT. 
: 398 1239 1/ f device is a terminal, reset the physcial cerett ing region to 
; 994 1240 1! ull screen. If the user doesn't request the screen to be cleared, 
; 995 : re } } then leave the cursor alone (unless the width needs to be reset). 
: $37 “8 | CALLING SEQUENCE: 
: 999 12465 1! ret_status.wlc.v = SMGSSPBCB_EXIT_HANDLER ( P_REASON.rl.r 
; 1009 : rf : } P_PBCB.rab.r 
: 1008 48 | FORMAL PARAMETERS: 
31 1250 1! P_REASON Address of word that contains exit reason. 
3 IDE : 3 : Should be PBCBLPBCB_L_EXIT_REASON). 
: 1007 1 3g 1 i P_PBCB.rab.r The pasteboard control block address for which 
; 108 ; 33 : the flushing action is to take place. 
; 1910 36 { IMPLICIT INPUTS: 
: Sig ' 38 : contents of P3(B 
; 1014 60 { IMPLICIT OUTPUTS: 
; 1016 1268 PBCBCPBCB_W_OUTPUT_BUFLENJ set to 0 (indicating buffer empty) 
; 1018 164 | ! COMPLETION STATUS: 
; 9 ! 06 ' SS$_NORMAL Normal successful completion 
: 10 é 1268 1 ' SIDE EFFECTS: 
; 10 1269 1! 
: 1024 isc 1! NONE 
3; 1025 1271 1 !-- 
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SMGSSPBCB_EXIT_HANDLER = Exit handler 14-Sep-1 SMGRTLeS 
BEGIN 
BIND 
PBCB = .P_PBCB : SPBCB_DECL; 
LOCAL 


STATUS 
WCB : REF $WCB_DECL; ! Address of window control block 


EXTERNAL ROUTINE 
SMGSCHANGE _PBD_CHARACTERISTICS; 
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SMGSSMINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum update calculatio 16-Sep-1984 00:54: AX-11 Bliss-32 V4.0-74 Page 33 
pngeen = SMGSSPBCB.EXTT. HANDLER - Exit Sadler 19-808-1 382 90 agiee SMGRTL.SRCJSMGMINUPD .B52;1 . as 


H ; 1 ! 5 WCB = .PBCB CPBCB_A_wCB); : } 
:1 rk 1 ; 1+ 71 
: 1044 1 8 ! If a scrolling region is set (other than the full screen), 3} 
; 1045 1 : then reset it now being careful to leave the cursor alone :] 
i 1046 1290 2 | even though SET SCROLLING REGION may move it :) 
3 3 1 ! Note that if we never established any scrolling regions, 37 
: 1048 1 ! the TOP_SCROLL Line will be 0. 3 7 
1086 159, 5 i] 
: 1051 1295 IF -PBCBCPBCB_W_TOP_SCROLL_LINE) NEQ 9 3 3 
; + § 1 38 AND (.PBCBLPBCB_W_TOP_SCROLL_LINE] NEQ oR 37 
3 7 129 -PBCBLPBCB_W_BOT_SCROLL_LINE] NEQ .WCBLWCB_W_NO_ROWS]) 3 7 
3 1054 1298 THEN 3 7 
; 192? ! + BEGIN ! Remove scrolling regions : ! 
Hep RL : 
; 1059 1 88 FINAL_ROW, ' Final cursor row 3 3 
; 1060 1304 FINAL_COL; ! Final cursor column 5 Y 
Be UP a. 
: 1908 1 09 i Construct escape sequence (possibly null if not a supporting terminal) 3 
: 1064 1308 ! to set the hardware scroll region to the full height of the screen. : 1 
1068 1316 i i] 
; 1067 4 1311 SSMGSGET_TERM_DATA(SET_SCROLL_REGION, : } 
> 1069 1318 .WCB CWCB_W_NO_ROWS)); :1 
we EE. i} 
; 107¢ 1 1 i Qutput BUFFER. 31 
Reo oat Pes t 
; 1075 1319 If _,PBCBLPBCB_L_CAP_LENGTH] NEQ 0 i] 
: 1097 1321 4 BEGIN ! Issue the reset : 1 
; 1979 : 5 d 1+ : i 
+ 1080 13 4 4 i Remember where the user left the physical cursor, since 31 
: H's ! 5 é : changing scrolling regions might upset this. : : 
: 10 g 1359 ; 71 
; 10 1 8 4 FINAL ROW=.WCBEUCB_W_CURR_CUR_ROW ; 3 
; 19 5 ! 4 ‘ FINAL~COL=.WCBCWCB_W-CURR_CUR_COLJ; : ! 
: 108 13 1 4 STATUS = SMGSSOUTPUT(PBCB,.PBCB Pace | CAP LENGTH) 3 
> 1088 1 ; 4 -PBCBLPBCB~A~CAP_BUFFERJS; 31 
: 1089 1 2 4 IF NOT .STATUS THEN RETURN .STATUS; : : 
; 1931 1338 1+ 71 
3; 109 1 § 4 ! Move the cursor back to where it was, 3; 
3 197 ! ; ? (No need to do this if the screen will be cleared anyhow.) : } 
; 1095 1 4 ; 31 
, 4% 1340 4 IF NOT .PBCBCPBCB_V_CLEAR_SCREEN) ; $Y 
3; 109 1341 5 THEN BEGIN ! Restore final cursor position $7 


a 
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SSMGSGET_TERM_DATA(SET_CURSOR_ABS,.FINAL_ROW,.F INAL_COL); 
STATUS = SMGSSOUTPUT(PBCB,.PBCB rece CAP LENGTHY 
. PBCBLPBCB_A_CAP—BUFFERIS; 
IF NOT .STATUS THEN RETURN .STATUS 
END ! Restore final cursor position 
¢ END ! Issue the reset 
END; ! Remove scrolling regions 


+ 

! Flush the buffer associated with this pasteboard if the exit 
! was successful. 

! This prevents us from flushing the buffer on things like 

! CTRL/Y (SSS_CLIFRCEXT). 

! Ignore any errors. 


IF_.PBCBCPBCB_L_EXIT_REASON) 
THEN BEGIN 
! If output is eotng controlled by RMS, then 
! do a final (or on x} snapshot. 
! Otherwise, merely flush the buffer. 
if .PBCBCPBCB V_RMS) 
THEN SMGS$SNAPSHOT (PBCBCPBCB L_PBIDJ) 
—" SMGS$FLUSH_BUFFER(PBCB); 


'¢ 
Change the terminal width back to what it used to be. 


oo: 
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IF _.PBCBCPBCB_W_WIDTH] NEQ .PBCBCPBCB_W_ORIG_WIDTH) 


THEN BEGIN” ~! Change physical width” 
LOCAL 
DESIRED_WIDTH, 
NORMAL _QIDTH, 


WIDE WIDTH 
WIDTA_SEQUENCE; 
DESIRED_WIDTH=.PBCBCPBCB_W_ORIG_WIDTHI; 


'¢ 
; First, clear the screen. 
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SSMGSGET_TERM_DATA(HOME) ; 
STATUS=O0TPUTT.PBCB, .PBCBCPBCB_L CAP_LENGTH),.PBCBCPBCB_A_CAP_BUFFER)); 
IF NOT .STATUS THEN RETURN .STATOS; 


SSMGSGET_TERM_DATA(ERASE_WHOLE DISPLAY); 
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IF_.PBCBCPBCB_L_CAP_LENGTH] NEQ 0 
THEN BEGIN 
STATUS = SMGSSOUTPUT(PBCB,. 


pecetre 
-PBCBLPB 
aid ~STATUS THEN RETURN .STATUS 


Pew 
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14 
Second, get the normal size. 
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SSMGSGET_TERM_DATA(COLUMNS) ; 
a .PBCBCPBCB_L_CAP_LENGTH] NEQ 0 
THEN BEGIN™ 
BIND RESULT=.PBCBCPBCB_A_CAP_ BUFFER) 
STATUS = SMGSSOUTPUT (PBCB, .PBCBLPBCB 
anes 


PB 
IF NOT .STATUS es RETURN .S 
NORMAL WIDTH=. RESULT 


END 
ELSE NORMAL_WIDTH=80; 


SNA AAA AAAA AO OIIVIVIWN 


3 Third, get the wide size. 


SSMGSGET_TERM_DATA(WIDTH WIDE); 
IF pac “besin- L_CAP_LENGTH] NEQ 0 


BIND RESULT=.PBCBCPBCB_A CAP_BU 
STATUS = SMGSSOUTPUT(PBCB,.PBCB 


IF NOT .STATUS Lg RETURN .STA 
WIDE _WIDTH=. RESUL 


E 
ELSE WIDE_WIDTH=80; 


14 
t Decide which sequence to send. 


IF_.DESIRED WIDTH ee gree AL WI 
THEN $SMGS$GET_T (WIBTH_ 
ELSE fencer 't TERMS DATACW IDTH” 

TAP_LENGTH] NEQ 0 


STATUS = SMGSSOUTPUT(PBCB,.PBCBCPBCB_L_CAP_LENGTH] 
.PBCBLPBCB~ A CAP“BUFFERJ); 
IF NOT .STATUS THEN RETURN .STATUS; 


DTH 
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END; ! Change physical width 


'¢ 
t Clear the screen if the user asked us to. 
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MGSSMINIMUM_UP SNGSSM INI PDATE - Minimy m update calculatio 16-50 -$ep-1984 4:58 AX-11 Bliss-32 V4.0- SMG 
in gee $PBCB BrEXTT HANDLER = Exit handler 300-1 3Be 9: 39 38 SMGRTL.SR REIsheMINUoD 6 B32;1 Page 43 1-0 
: 121 14 IF_.PBCBCPBCB_V_CLEAR_SCREEN] :1 
: | 1§ re THEN SHGSSERKSE _PASTEBOARD (PBCB) ; 2} 
: 15 1485 SMGS$SFLUSH_BUFFER(PBCB) ; : } 
s 1 1$ 1461 ! we8 1 don't know whether or not an exit routine is supposed : 3 
; ! 18 1468 i to return a value; so I'm returning SS$_NORMAL for now. : : 
3 ’ 3 ec: RETURN SS$_NORMAL ; } 
3 1222 1466 1 END: ! Routine SMG$$PBCB_EXIT_HANDLER : } 

i] 
.EXTRN SMGSCHANGE_PBD_CHARACTERISTICS - 
OFFC 00000 .ENTRY SMGSS$PBCB_EXIT_HANDLER, Save R2,R3,R4,R5,- = 1229 31 
R6,R7,RB,RO R10 R11 : 7 
58 0000v cf 9E 9002 MOVAB emessou Tpur : 31 
5A 000000006 00 H 000 MOV SMGSGET_ TERM. BATA, R10 : 31 
5E 10 C2 0000 SUBL2 #16, SP” : 31 
52 08 AC DO 00011 MOVL P_PBCB, R2 + 1276 31 
54 8 A bd 00015 MOVL TR2) + 1285 31 
50 OOF 4 ¢ 00019 MOVZWL 244(R2), RO > 1295 31 
1 13 0001 BEQL 4$ : 31 
01 0 BI 990 CMPW =seRO, #1 : 1296 . 7 
08 12 000 BNEQ 1$ : 31 
02 AG 00F6 C2 B1 00025 CMPW  246(R2), 2(WCB) : 1297 31 
44 13 999 B BEQL  4$ : 31 
56 OOFC C2 i: 002D 1$: MOVAB 252(R2), R6 : 1313 ; 7 
66 D5 00032 TSTL (R6) : : 1 
09 12 00034 BNEQ 3s : 31 
53 0108 Ce 9E 00036 MOVAB  264(R2), R3 : 1 
63 D4 600 B CLRL (R3) : :1 
30 11 00030 BRB 3$ ; : 1 
04 AE 02 DO OOO3F 28: MOVL #2, INPUT_ARGS ; 7 
08 AE 01 00 00043 OVL #1, INPUT~ARGS+4 : 71 
OC AE 02 Ad 3C 0004 MOVZ2WL 2(WCB), INPUT_ARGS+8 ; 21 
04 AE 9F 0004C PUSHAB INPUT ARGS ; 31 
0104 C2 DD 0004F PUSHL 60(R2) ; 21 
53 0108 ¢ 9E 0093 MOVAB 264(R2), R3 ; 31 
DD 0005 PUSHL R ; s 
0190 C2 9F OO05A PUSHAB 2 $(R2) : 31 
10 AE 02 f 8F 3C 909 MOVZ2WL #572, 16(SP) ; 71 
1 AE F USHAB 16(SP) ; : 1 
56 DD 00067 PUSHL R6 ; 31 
6A g F 9069 CALLS #6, SMGSGET_TERM_DATA ; 21 
2 E 99 C BLBC STATUS, 6$ ; 3:1 
63 D 6 3$: TSTL (R3) : 1319 :1 
60 4$: BEQL ; 31 
58 AG 7 CVTWL (WCB), FINAL_ROW : 1328 31 
5 AG 7 CVTWL (WCB), FINAL=COL : 1329 31 
55 0104 C2 9€ 07 OVAB 260(R2), R : 1332 31 
65 DD PUSHL  (R5) ; 31 
DD PUSHL  (R3) : 1331 
DD PUSHL Re : 
68 FB CALLS #3, SMGSSOUTPUT : 
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MOVL RO bil, 9 


9 
4 C i 
3F OC A i abe ; tr 


UT_ARGS 
ROW, INPUT_ARGS+4 
“fete INPUT_ARGS+8 


‘'0'25 


, eran? 


SMGSGET_TERM_DATA 
US, 148 


OS O Ss ee 
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C gs: 
00C4 7$: PUSHL 
ee 
0088 
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0000v CF F 148 CALLS 3, QuT PUT ; 
4 D0 0014 MOVL RO. S aTyS : 
E9 OO14A 168 BLBC  S$TATUS, 23$ + 139 
66 p 14D TSTL  (R6) : 139 
4 14F BNEG 17 ; 
: D4 001 CLRL = (3) : 
F 11 001 BRB 183 ; 
04 AE p4 155 178: CLRL _—sINPUT_ARGS : 
4 AE 9F 001 PUSHAB INPUT~ARGS ; 
‘ DD 00158 PUSHL (RS) : 
D 0015p PUSHL R3 : 
9100 f F 001 f PUSHAB 2 g(R2) : 
10 AE IDA BF «3C 0016 MOVZWL #474, 16(SP) : 
10 AE F 00169 PUSHAB 16(SP) : 
DD 0016C¢ PUSHL 6 ; 
gA FB 166 CALLS #6, SHGSGET_TERM_DATA : 
C E 1 BLBC STATUS, 27$ ; 
6 D3 174 18$: TSTL  (R3) + 1399 
Ey 0176 BEQL 4 19$ : 
65 0d O17 PUSHL (RS) + 1402 
$ DD OO17A PUSHL  (R3) + 1401 
DD 0017¢ PUSHL Re : 
68 FB 17E CALLS #3, SMGSSOUTPUT : 
34 0 pO 00181 OVL RO. STATUS : 
F 4 €9 00184 BLBC = STATUS, 29% + 1403 
66 DS 00187 198: TSTL  (R6) + 1410 
04 12 00189 BNEQ 20$ ; 
63 D4 001 CLRL = (R3) : 
1E 11 0018D BRB 22$ ; 
04 AE D4 0018F 208:  CLRL INPUT_ARGS : 
04 AE OF 013@ PUSHAB INPUT ARGS ; 
$ DD 0019 PUSHL (RS) : 
BD 0197 PUSHL RS ; 
0100 ¢2 9F 00199 PUSHAB 2 $(R2) ; 
10 AE DD 8F 9A 0019D MOVZBL #221, 16(SP) ; 
10 AE OF OiAg USHAB 16(SP) : 
56 DD OO1A PUSHL R6 ; 
6A Q FB OO1A7 CALLS #6 SNGSGET_TERM_DATA ; 
43 E 1AA 318 BLBC STATUS, 27$ : 
63 DS OO1AD 228 TSTL  (R3) + 1411 
17 1 1AF BEQL 24$ F 
57 65 00 00181 MOVL  (R5), R7 > 141 
65 DD 001B4 PUSHL (RB) + 141 
$ DD 186 PUSHL (R3) > 141 
DD 001 PUSHL R : 
68 FB OO1BA CALLS #3, SMGSSOUTPUT : 
4 dO 0018 MOVL RO, STAT : 
43 4 €9 001CO 238 BLBC STATUS, 29% F 1416 
58 7 bo 1¢ MOVL  (R7), NORMAL_WIDTH > 141 
a 106 BRB 238 : 
58 50 BF 9A O0IC 348 MOVZBL #80, NORMAL_WIDTH > 1419 
66 p 1€C 25$ TSTL (R65 + 1425 
4 1¢ BNEG 26 ; 
63 : 1 CLRL = (3) F 
F 11 0010 BRB 283 : 
04 AE D4 001D4 268:  CLRL _—sINPUT_ARGS ; 
4 AE 9F 00107 PUSHAB INPUT~ARGS ; 
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se SMGRTL.SRC SMGMYNUPD 8 2:1 (18) 

FOA4 =F 4 CALLS #1, SMGSSERASE_PASTEBOARD 3 
B 408: PUSHL R 3; 1459 

FC8C gf CALLS #1, SMGSSFLUSH_BUFFER 3 
0 1 06 4 MOVL #i, RO i 1464 
4 418: RET 3 1466 


; Routine Size: 646 bytes, Routine Base: _SMGSCODE + 041F 


H 10 

SSMINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum update calculatio 16-Sep-1984 00:54: AX-11 Bliss-32 V4.0-74 Page 41 
engi" “  SMGSSSETUP_TERMINAL_TYPE = Setup terainal type 12286871382 99:35:88 ESMGRTL- SRC ISMGMINUPD .B 231 : (19) i 
: 1224 1467 1 ZSBTTL 'SMGSSSETUP Meta! TYPE = Setup terminal type for SMG$$ routines’ 
3 1225 14 1 GLOBAL ROUTINE SMGS$ ETUP_TERMINAL_TYPE ( 
3 1 8 14 1 the HARE 
3; 3 14 1 N. LEN, 
: 8 147 1 P_TERM TYPE, 
71 1472 1 PBCB_ADR 
: 1539 128 | tee 2 
; ; 1475 | FUNCTIONAL DESCRIPTION: 
: 1 1499 1 i This routine uses the specified file name to determine device 
; 1235 O08 7s ghoresterietics and assign a paresney type code which is understood 
3 1 : 1479 1! by other SMG$$ routines. SMG$$ routines use the terminal type to 
3 7 1480 1! determine the correct escape sequence fcr a given function (ex. set 
; : : 1° 1 : cursor). 
; 40 14 § i CALLING SEQUENCE: 
+ 126 1485 1! ret_status.wlc.v = SMGSSSETUP_TERM_TYPE (FILE_NAME.rt.r, 
3 124 1oR6 +} E_LEN.rl.v 
> 1264 1487 1 P_TERM_TYPE.wl.r 
3 : re 1o38 : } C,PBCB_ADR.wl.rJ) 
; 4 1490 FORMAL PARAMETERS: 
> 1249 149¢ 1/ FILE_NAME.rt.r addr of file name text 
; 1250 1495 1! NAME _LEN.rl.v Length of file name text 
; 1251 1494 1! P_TERM_TYPE.wl.r terminal type code, one of the following: 
s 26 1495 1! unknown 
3 125 rs 1! vt05 (unused) 
: 1254 1497 1! vt § (unused) 
3: 1255 1498 1! vtl (unused) 
3; 1 28 1499 1! vtforeign 
eR oor 
3 1259 1208 1: PBCB_ADR.wl.r Address of longword to receive address 
: 1369 1505 1! of the pasteboard control block. 
3 ' o 1208 ' : If 0 or omitted, no PBCB gets allocated. 
:1 8 1306 1} IMPLICIT INPUTS: 
3 1264 15 1! 
: ' 65 1388 ! : NONE 
; 67 1310 i IMPLICIT OUTPUTS: 
; $9 1318 PBCB fields get filled in. 
> 1271 1514 1 | COMPLETION STATUS: 
ee 
+ 1274 1819 1 | SIDE EFFECTS: 
: 1275 1318 1! 
3: 127 151 1! NONE 
3: 127 1520 1 !-- 
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BEGIN 
BIND 
TERM_TYPE = ,P_TERM_TYPE; 
BUILTIN 
NULLPARAMETER; 
LOCAL 
SMGF AB : $FAB_DECL, 
SMGNAM : $NAM~DECL 
DEVNAM_DSC : BLOCK C8 gyre 
DVI_ITALST : VECTOR Cé*3 + 14 INITIAL 
(DVIS_DEVTYPE — * 18 +4, 0, 
DVIS-DEVDEPEND * 16 + 4. 0. 
DVISDEVDEPEND2 * 16 + 4. 0, 
DVIS“DEVBUFSIZ * 16 + 4. 0, 
DVIS“DEVCLASS * 16 + 4. 0. 
DVIS~DEV “16 +64, 0, 
0), 
DVI_EFN 
DV1~10SB : VECTOR C4, WORD), 
STATUS 
DEV_TYPE : VOLATILE, 
DEV-DEPEND : VOLATILE BLOCK 
DEV~DEPEND2 : VOLATILE BLOCK 
DEV~BUFSIZ : VOLATILE, 
DEVICLASS : VOLATILE, 


DEV_PAGSIZ, 
DEV_DEVNAM : VeCcTOn C44, BYTEI, 


DEV_NAMLEN : VOLATILE WORD, 
TERMTABLE; 
BIND 
DVI_TYPE = = DVI_ITMLST + 4 
DVI“DEPEND. = DVIITMLST + 16, 
DVI=DEPEND2 = DVI-ITMLST + 28, 
DVITBUFSIZ = DVITITMLST + 40, 
DVITCLASS = DVIITMLST + 52, 
DVI“DEVNAM = DVITITMLST + 64, 
DVIZNAMLEN = DVITITMLST + 68; 
BIND 
FABDEV = SMGFABCFABSL_DEV 
DVI_NAME_LEN = SMGNAMCNAMST~DV1 
DVI ~NAME = SMGNAMCNAMST—DV1J+1 
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' event flag for $GETDVI 
' 1/0 Status block for 
' status retd b 
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: BYTE 
VECT 


AX-1 
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«SRC 


Address to get terminal type 


-a 


sc for name 

tem list for $GETDVI 
device type (DT$_xyz) 
device dependent Bits (1) 
device dependent bits (2) 
terminal width 

device class (DC$_xyz) 
result name string 
terminater 


$GETDVI 
called routines 
storage for S$GETDVI value 

; ! device dependent bits ( 
. ! device dependent bits ( 
storage for $GETDVI 


1) 
2) 
value 


! storage fpr SGETDVI value 
! gets the number of rows of device 


Buffer for result name 
string 


Length of returned 


resultant name strin 


Address of terminal fable 


make it easy to reference 
items retd by S$GEIDVI 


KC,BYTEJ, ! Device characteristcs 
ORC BYTE); 


MGMINUPD .B52;1 
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- Setup terminal type 14-Sep- 
OWN 
GENERIC_ANSI_CRT_BUF : VECTORC16,BYTE) 
INITIAL (BYTE (*GENERIC_ANSI_CRT')), 
GENERIC _DEC_CRT_BUF : VECTORC15 BYTE] 
INITIAL (BYTE (*GENERIC_DEC_CRT')), 


GENERIC_ANSI_CRT_ DESC : VEETORE SI 
GENERIC-DEC_CRT_BESC : VECTORL2); 


EXTERNAL ROUTINE 

SNGSINIT ~TERM. TABLE _BY_TYPE, 
GSINIT~ TERM 
SMOSSCREATE PASTEBOARD, 
LIBSLP_LINES; 


Initialize terminal table by type 
Initialize terminal table by name 
Create a PBC 

Get number of rows for lpt 
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‘, cute arse the atch name 
Lt veto us a : character physical device name 


U 
ine 
oc 
( "y = ie use SGETBVI.” it oe return a 63-character hidden 
T 
I 
I 
TT 


e main reason we calh, SPARSE a i ne Bs we gon allow filenames. 
the user specifies ‘TTB i as nis device, he gets a terminal. 

he user specifies ‘TTBS’ as his "euten. “he gets the file 
B5.LIS on his default disk and directory. 


s 
h 
I 
gev'ice name.) 
f 
! 


+ 
Initialize the FAB and NAM blocks. 


P SFAB_INIT( FAB = SMGF 

Pp DNM = a SCONTPUT. LIS', 

P NAM = SMGNAM, 

P FNA = .FILE_NAME, 
FNS = .NAME"LEN); 


SS SS  SQOOOOOCOOOOOCVO a 
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$NAM_INIT(NAM=SMGNAM) ; 
STATUS=$PARSE (F AB=SMGF AB) ; 


a a a a ee a ee a kk dd dd 
a a ee ed dd dd 
DAPPER XARAA AAA AAA AA AAA AAA AA AAA AAAAAAAAA AAA AAAAS 


Be Se Se Ge He Ge Ge Se Ge Ge Ge Fe Ge Se Ge Fe Se Gs Ge Ge Fe Ge Ge Gs Ge Ge Fe Ge Fe Fe Ge Se Fe Ge Ge Se Se Ge Se Ge Fe Ge Se Fe G4 Ss Ge Se Se Se SF Se Se Se Se Sees 


38 IF NOT .STATUS THEN RETURN STATUS; 

383 's 

384 ! The device name is now a counted string in the NAM block 

SH ! beginning at offset NAMST_DVI. 

86 ! There is an obscure case Fhough that can occur. If the output device 
87 ! is on another nade. ae RMS cannot figure out the device name 

88 ! so the DVI field i ones Ni This can happen if an SMG job is 

89 ' run as a TASK with SYS30 iput defined to be SYS$N 

$0 ; pate Denpens when you use the “‘TASK=FOO"' kind of filespecification 
4 3 ! To allow this to work, we check to see if the device characteristic 
39 3 ! of the postesoare device is DEVSM_NET. If so, we bypass the ca 

9¢ ; to SGETDVI, and we fill in the fiélds the best we can. 

a8 3 

9 3 IF .FABDEVCDEV$V_NET) 

98 3 THEN 

99 4 BEGIN ! Network device 
400 4 
401 4 '¢ 
188 4 i Fudge the items to reasonable values. 

40 4 in 
404 64 
405 64 DEV_TYPE = DTS_MBX; 

£06 64 DEV_DEPEND = 0; 

40 64 DEV_DEPEND2 = 0; 

408 64 DEV-CLASS = 0C$_MAILBOX; 

409 65 DEV_BUFSIZ = 80; 

410 65 DEV-DEVNAM = .FILE_NAME; 

411 65 DEV_NAMLEN = ,NAME_LEN; 

412 65 END ! Network device 


re 
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- $ a ss - Setup minal type -Sep- 209: . B52; 
3 1¢}3 1 : ELSE 
5 Vale ! BEGIN ! Normal device 
; 1218 1 5 DVI_TYPE = DEV_TYPE; ! fill in rest of itmist 
3; 161 1938 DVI_LDEPEND = DEV_DEPEND; 
> 141 16 DVI-DEPEND2 = DEV“DEPEND2; 
3 141 1660 DVI_CLASS. = DEV_CLASS: 
: 14 1661 DVI“BUFSIZ = DEVIBUFSI2Z; 
: 1421 1996 DVI_DEVNAM = DEV_DEVNAM; 
3 1? ¢ 1997 DVI_LNAMLEN = DEV_NAMLEN; 
: 1424 19 5 IF NOT (STATUS = LIBSGET_EF (DVI_EFN)) 
3 ® 3 r get unique event flag number 
1 2 199 THEN RETURN (.STATUS) tT i fl b 
: 1427 1668 1+ 
3: 1428 1982 ' Create a descriptor for use by $GETDVI. 
He ie . 
: 1431 1676 DEVNAM_DSC paces pr yeti = DSCSK_DTYPE_T; 
3 14 ; 167 DEVNAM_DSC CDSC$B_CLASS = DSCSK-CLASS'S; 
3 133 1674 DEVNAM_DSC CDSCSW_LLENGTH] = .DVI_NAME_LER; 
3 © . = ms ; 
Pe 4 190? DEVNAM_DSC CDSC$A_POINTER] DVI_NAME 
: 1436 P 1879 STATUS = $GETDVI( EFN = .DVI_EFN 
> 1437 P 1678 10SB_ = DVvI~I0S6 
> 1438 P 1679 DEVNAM = DEVRAM DSC 
> 1439 1680 ITMLST = DVI_ITALSTS; 
3 re be? IF NOT .STATUS THEN RETURN (.STATUS); 
: 1206 1688 ! #** Possible bug: Should we deallocate the event flag if the 
3 144 1684 } opeséys fails? Otherwise, enough calls to this routine 
; pre} 198) : that return errors will use up all the event flags. 
: 1446 1687 STATUS=S$WAITFR (EFN = .DVI_EFN); ! make SGETDVI synchronous 
> 1447 1688 IF NOT .STATUS THEN RETURN” (.STATUS); 
He 1 : 
: 1450 1691 ! When the operation completes, the final status 
3 1451 1936 ' is left in the first word of the I/0 status block. 
Hee 18 . 
3 1328 1999 IF NOT .DVI_IOSB CO] THEN RETURN (.DVI_10SB (0)); 
: 1436 1899 END; ' Normal device 
ns 
; 1289 1700 ' Calculate the number of rows and columns for our pasteboard. 
: 1460 1701 ! If the device is ’ terminal, then the number of rows 
3: 1461 17 § ' is the high byte in DEVDEPEND. 
: 1006 17 ! the device is not a terminal, then the number of rows 
3 146 17 ! is hereb declared to be that returned by LIBSLP_LINES. 
3 1464 1705 ! (We don't let this get bigger than 511 however, Since we 
: 1465 17 ' store the result in a byte. 
3 1668 17 !' The number of columns is the device buffer size, whether or not 
: 146 17 ; ' the device is a terminal. 
3 1468 17 ! If the device is not aterminal, then we assume it will eventually 
3 1469 1710 ! be printed on a terminal or a (ineprinter, so we minimize 
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A -DEV_CLASS EQL DCS$_TERM 
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1+ 
Allocate a pasteboard control block (PBCB). 


IF NOT NULLPARAMETER(PBCB_ADR) 
THEN 


BEGIN 
STATUS = SMGSSCREATE_PASTEBOARD 


( DEV_PAGSIZ, DEV_BUFSIZ, .PBCB_ADR ); 
Bhd «STATUS THEN RETURN (.STATUS); 


'¢ 
! If the device is a terminal, we get information about it from 
} TERMTABLE.EXE. We set TERM_TYPE to VTTERMTABLE. 


Del el el ek ek al ak Dak Dk De Dall ee 


TERMTABLE=0; 
oY ~DEV_CLASS EQL DC$_TERM 


QLELRENLSSSLSSRANLESSLEALARVES Sarvonrow— 


BEGIN ! Cet info ae TERMTABLE 

IF .DEV_TYPE EQL TT$_UNKNOWN 

THEN “BEGIN ! TERMTABLE never heard of it 
LOCAL GENERIC_NAME; 


Initialize our descriptors. 

We couldn't do this with an INITIAL clause 

weg euse that would generate a .ADDRESS directive 
which would require “seve vectors 

which would make the PSECT read/write 

which would prevent sharing in our shared image. 
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1J=GENERIC_A 
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! Well, if it's qither an ANSI_CRT or a DEC_CRT, 

} we can handle it. DEC_CRT has priority over ANSI. 
GENERIC_NAME=0; 

IF .DEVDEPENDeLTT2$V_ANSICRT) 
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' yhe width with 132. We ne wish to reconsider this idea 
} n the future if we ever start producing wider terminals. 
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1 
$ 
-$ 
f ANSI_CRT_DESC; 
C_DEC_CRT_DESC; 
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THEN GENER 08 NAM vGENE H 
THEN I NARE=GENE I 
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ERMTABLE terminal 


DEPE 
EN GENE 
IF .GENERIC_NAM 
THE TERA_TY ge 
ELSE BEGIN sik : gene ic terminal 
STATUSSSAG ini ERM. TABLE (.GENERIC_NAME, TERMTABLE) ; 
IF NOT. S THEN pele RN .STATUS; 
TERM_TY PESVTTERRTABL 
END; ! Use a phan terminal 
END i TERMTABLE never heard d of it 
ELSE BEGIN ! gtender ard TERMTABLE t nal 
STATUS=SMG INIT TERM. TABLE _BY te YPE (DEV TYPE, TERMTABLE) 
IF NOT .STATUS THEN RETURN ’.STATUS; 
TERM_ TYPE=VTTER MTABLE 
ND Ry enser 
om 


E 
d 
TE 


62 C909 C909 C8 NI INNIS OO aa 
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4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 T 
gL END ' Get info RMTABLE 
TERM_TYPE=UNKNOWN; 
'¢ 
- Store items in the PBCB if one was created. 
IF NOT NULLPARAMETER(4) 
THEN 
BEGIN ! storing into PBCB 
BIND PBCB = ..PBCB_ADR : SPBCB_DECL ; 
'+ 


i we will need an event flag for many future egeretions on this 
i. pasteboard, so we store away the event flag in the PBCB. 


PBCB CPBCB_B_EFN] = .DVI_EFN; 
PBCB CPBCB_B_DEVTYPE] = .TERM_TYPE; ! Internal type 


+ 
' FILL in the e OEE gov ice characteristics block 
— field will not be vali 
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MEUM 0 OONAUE WN 0 OONAUES WN “OO OANIOULWR— 


SOOGCOSCOSCOSO COO OOOO OOOMMoc 
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4 
' Note that the DE di 
i is not a terminal because we replace the top byte 


3 3 
3% 
3 1 
3; 7 
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3% 
3; 7 
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3 1 
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3 7 
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| 
3 1 
3% 
3; 3 
. | 
3 7 
| 
3 1 
. 7 
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3 1 
3 3 
3% 
3, 3 
: 1 
3; 1 
5; 3 
3 7 
| 
3 7 
37 
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3; 7 
3; 1 
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: 1 
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t 

69 1 ; of 
3/9 \ i. longword with the device page size (as it would be fo terminal) 
57 1 
278 1 PBCB CPBCB_B_PHY_DEV_ TYPEJ= -DEV_TYPE; ! Physical type. 
574 1 PBCB [PBCB_B_CLASS -DEV_CCASS:§ | Device class 
575 1 PBCB CPBCB-W-WIDTH = -DEV-BUF S12; i Number of colum 

af6 1 PBCB CPBCB~W-ORIG WIDTHJ= .DEVBUFSIZ; | Number of columns (original value) 
57 1 PBCB CPBCBL“DEVDEPEND] = .DEVIDEPEND; jnoricithy 3 sets overlapped 
378 1 i field PBCB OWS also. 

3 PBCB [PBCB_B_ROWS) = .DEV_PAGSIZ; i Reset it ae 

80 PBC porervEetaser ye DEV-DEPEND2; secondary characteristics. 
581 PBCB C[PBCB-L-TERMTABLE) = .TERATABLE; minal table 

286 PBCB CPBCB_L_LONGEST_SEQUENCE J=SMG$K LONGEST rSEQUENCE; 


11 
SMGSSMINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum update galculatio 16-Sep-19 4 09:54:58 AX-11 Bl iss-32 V4.0-74 Page 48 sri 
1- SMGSSSETUP_TERMINAL_TYPE = Setup terminal type 14-Sep-1984 13:09: SMGRTL.SRCJSMGMINUPD .B52;1 (21) =( 
: 1584 1825 + 
| 8? 1 § ! Allocate a buffer to hold the longest possible sequence 
3 1 8 1 ' that can be returned to us. 
: 1aBe 1859 es 
; 1589 ig 0 dihhidtanatenbeadihs® +1425 4) w wd ce SEQUENCE], 
; 1590 1831 PBCBLPBCB_A_CAP_BUFFER]); 
3; 1591 \3 § IF NOT .STATUS THEN RETURN [STATUS; 
: 1898 if 4 \+ 
3 1594 1836 ' Create the border vector. 
i ; 
: 1597 1838 ESTABLISH_BORDER_VECTOR(PBCB); 
1899 1840 's 
: 1600 1841 ' If terminal does not support direct cursor positioning, 
3; 1601 a ! then treat it as a nareenes device. 
3 1906 184 ! Otherwise, treat it as a TERMTABLE scope terminal. 
do 
3 1605 1846 IF .TERM_TYPE EQL VTTERMTABLE 
: 1606 1847 4 THEN GEGIN 
3; 1607 1848 4 SSMGSGET_TERM_DATA(SET CURSOR_ABS, 1, 1); 
; 1608 1849 4 IF _.PBCBCPBCB_L_CAP_LENGTH] EQL 0 
3; 1609 1850 5 THEN BEGIN 
3; 1610 1851 5 TERM_TYPE=HARDCOPY; 
3 101) 1926 ? + CPBCB_B_DEVTYPE) = .TERM_TYPE; ! Internal type 
; 1818 1854 4 SSMGSGET_TERM_DATA(SCOPE); 
> 1614 1855 4 IF_.PBCBCPBCB_L_CAP_LENGTH] EQL 0 
3; 1615 1856 5 THEN BEGIN 
3: 1616 1857 5§ TERM_TYPE=HARDCOPY; 
; 1olf 1938 2 4 CPBCB_B_DEVTYPE) = .TERM_TYPE; ! Internal type 
3 1619 1860 5§ ELSE BEGIN 
3 1620 1867 5 BIND BOOL = .PBCSCPBCB_A_CAP_BUFFER); 
; 166) 1306 5 IF NOT .BOOL 
3 16 é 1863 6 THEN BEGIN 
3; 162 1864 6 TERM_TYPE=HARDCOPY; 
3: 1624 1865 6 PBCB CPBCB_B_DEVTYPEJ = .TERM_TYPE; ! Internal type 
3: 1625 1866 5 END; 
3 1626 1867 4 END; 
3 1627 1308 END; 
: 18 5 1890 14 
: 1630 190) ! Find out if this terminal supports high and/or wide Lines, 
: 19 ! i: and if it has physical tabs and backspaces. 
: 183 1874 
3 1634 1875 IF .TERMTABLE NEQ 0 
; 103) 1376 ? THEN BEGIN ! Get info from TERMTABLE 
i 16 1378 4 S$SMGSGET_TERM_DATA(DOUBLE WIDE); 
3; 1638 1879 4 IF pecerrece L_CAP_LENGTA) NEQ 0 
: 1o77 1330 é THEN PBCBCPBCB_V-WIDE] = 1; ! It handles wide Lines 
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1-045 SMGSSSETUP_TERMINAL_TYPE = Setup terminal type 14-Sep-1984 15:09:54 SMGRTL.SRCJSMGMINUPD.B52;1 (21) 
; 1641 1 ¢ 4 SSMGSGET_TERM_DATA(DOUBLE HIGH TOP); 
H 1906 1 4 IF pecetrece L_CAP_LENGTA] NEG 
; 1967 ! : ? THEN PBCBLPBCB_V-HIGH] = 1; ! It handles double high Lines 
> 1645 1 36 4 IF_.DEV_DEPENDCTT$V_MECHTAB) 
3 1968 1 THEN 8B 
3 164 1888 PBCBCPBCB_V_TABS) = 1; ! It handles physical tabs 
3: 1648 1889 ' We check the NOTABS bit 
3 1649 1890 ! elsewhere, because the user 
; 1650 1891 ' can dynamically change that 
; 1651 1 5 ! at runtime. 
: 1906 18935 4 END; 
3; 16 1894 4 
: 1654 1895 4 SSMGS$GET ea nh ty 
; 1655 1896 4 IF_.PBCBCPBCB-L_CAP_LENGTH) NEQ 0 
3: 1656 1897 5 THEN BEGIN 
: 1657 1898 BIND ANSWER = .PBCBCPBCB_A_CAP_BUFFER); 
; 1658 1899 IF .ANSWER 
3 1659 1900 THEN PBCBCPBCB_V_BS) = 1; ! It handles backspace 
; 1660 1901 4 D; 
; 1661 1306 4 
3 196¢ 190 END; ! Get info from TERMTABLE 
3; 166 1904 
3 1664 1905 1+ 
3; 1665 1906 ' Fill in the device name. 
> 1666 1907 le 
3 1667 1908 
; 1668 1909 PBCB CPBCB_W_DEVNAM_LENJ= .DEV_NAMLEN; ! Length of device name 
3 168% 1319 CHSMOVE ( [DEV_NAMLEN, DEV_DEVRAM, PBCBCPBCB_T_DEVNAM)); 
; 1671 1316 1+ 
3 1976 191 { Initially, we don't know what color the background is. 
: 18% 1918 - 
; 1673 1918 PBCB CPBCB_B_BACKGROUND_COLOR] = SMG$C_COLOR_UNKNOWN; 
: 1677 1918 + 
: 1678 1919 ! Output any initialization sequence now. 
3: 1679 1389 le 
; 1680 1921 
3 1o83 1956 SSMGSGET_TERM_DATACINIT_STRING); 
3 1888 1954 IF .PBCBCPBCB_L_CAP_LENGTH) NEQ 0 
3 lens 1925 4 THEN N 
3: 1685 1926 4 STATUSSSRESSOUTPUT (PR CE. Oe Cea ce tee ewernd 
; 1686 1927 4 *PBCBLPBCB_A_CAP~BUFFERJS; 
; 168 1928 4 IF NOT .STATUS THEN RETURN .STATUS 
: 1688 1929 END; 
: 1689 1930 
: 1690 1931 END; ! storing into PBCB 
3; 1691 19 ; 
: 1636 + ? RETURN .STATUS 
> 169% 1935 1 END; ! End of routine SMGS$SETUP_TERMINAL_TYPE 
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~PSECT _SMGSDATA,NOEXE, PIC,2 
52.43 SF 49 53 4E 41 SF 43 49 52 45 4E 45 47 00004 GENERIC_ANSI_CRT_BUF : 


54 ASCII GENERIC ~ANSI_CRT\ : 
54 52 43 SF 43 45 44 SF 43 49 52 45 GE 45 47 boot GENERIC_DEC_ CRT_BUF: 
ASCII ~\GENERIC -DEC_CRT\ : 


LK 
$082 GENERIC -ANSI CRT DESC: 
0002C GENERIC_DEC ‘gh ‘pee 


-BLRB 
.PSECT _SMGSCODE,NOWRT, SHR, PIC,2 
00000000 00000000 000A AQ004 00000000 00000000 9060004 ina P.AAB PNG Be 0. 55364 0. 9 1835012 
00000000 00000000 00080004 00000000 00000000 001(0004 006c0 © §—s* 4292, 6214 97216, - : 
00000000 00000000 00200040 §0090080 00000000 0060004 si aia - 20972 : : 
53 49 4C 2€ 54 55 50 54 55 4F 47 4D 98 O6F4 P.AAC: .ASCII \SMGOUTPUT.LIS\ : 
.EXTRN SMGSINIT_ TERM. TABLE_BY_TYPE 
“EXTRN SMGSINIT~TERM-T 
"EXTRN SHCSSCRERTE RPKSTEBOARD 
-EXTRN LIBSLP_LINES, SYSSPARSE 
EXTRN SYSSGETDVI. gySSualTER 
OFFC 00000 ENTRY RECA SRESRO RIO MAT TYPE, Save R2,R3,R4,R5,~; 1468 
SE FE8O CE 9€ 90002 MOVAB = Be g ; 
58 0C AC DO 9000 MOVL P TERR TYPE. okt > 1525 
7C =soAE 96 = AF 004C 8F se p28 MOVC3 #76, P.AAB ae : 1543 
0050 8F 00 6E : 00 C 0015 movCS #0, (SP), hoe ‘58 SRHS._ PTR : 1617 
BO AD 5003 8F BO o01¢ MOVW #20483. $RMS_PTR : 
C6 AD 02 90 000 MOVB » $RMS PIR? 2 : 
CF AD 02 90 00026 MOVB SRMS~PTR+31 : 
D8 AD FF50 CD 3 OO2A MOVAB re: 3k Sams PTR+40 : 
DC AD 04 AC 00 000 0 MOVL FILE SAAN SAMS PTR+44 ; 
EO AD BB OAF 3 00 MOVAB PAC shits PTRT48 : 
E4 AD 08 ac 9 00 A MOVB NAME Shs gpirese2 : 
ES AD 0D 90 F MOVB. #13, eit MSP ; 
0060 =F 00 6E tithes 00 2c 043 mMovCS #0, (SP), “on 4 $RMS_PTR ; 1619 
FESO. CD 6002 8F BO 0004D MOVW #24578, S$RMS_PTR : 
BO AD 9F 4 PUSHAB SMGFAB > 1621 
000000006 9 1 Ff 7 CALLS #1, SYSSPARSE : 
: D F MOVL RO. STAT : 
D E 6 BLBC STATUS : 1632 
21 Fl AD 5 £1 00064 BBC 5, FABDEV+1, 1$ : 16 
70 AE 1 DO 9 MOVL #1. DEV_TYP : 1646 
6C AE D4 CLRL V_DEPEND > 1647 
68 AE D4 CLRL CDE meoEe > 1648 
60 AE A F 9A 0007 MOVZBL # #160, DE CLASS > 1649 
os 3 F 9A 0007 MOV ZBL DEV. UF SIZ > 1650 
0 AE 4 ac D0 0007D MOVL rice Piuee “DEV _DEVNAM > 1651 
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1-045 MGSSSETUP Po TER RMINAL_TYPE = Setup terminal type 1 sett 99: 39; 3 SMGRTL. OCR C SHGMINUPD. 8 2;1 ° (21) 
A DD 0038C PUSHL R19 ; 
10 AE 01D F 3C 0038 MOVZWL #478, 16(SP) : 
1 AF F 003C¢ PUSHAB 16(SP) : 
DD 003¢ PUSHL R ; 
000000006 09 F ¢ CALLS #6, SMGSGET_TERM_DATA : 
E D BLBC STATUS, 43$ : 
6 p D3 41$ TSTL (Re) + 1924 
§ EQL 42 $ 
67 0D 0030 PUSHL (R7) + 1927 
: DD 00309 PUSHL  (R2) + 1926 
DD 0030B PUSHL R ; 
0000v CF F D CALLS #3, SMGS$SOUTPUT : 
9 D E MOVL RO, STATUS ; 
0 p £5 42$:  MOVL STATUS, t 1933 
4 003€8 45$: RET ; 1935 


Routine Size: 1001 bytes, Routine Base: _SMGSCODE + 0701 
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pngeen = ESTABLISH_BORDER_VECTOR , 1 ~3007 138% 90: 3giee SMGRTL. RCISMGMINUPD .B 2:1 ° (238 
H 1696 19 § 1 ZSBTTL "ESTABLISH_BORDER_VECTOR' 
; 199 13 ! ROUTINE ESTABLISH _BORDER_VECTOR( P_PBCB) : NOVALUE = 
; 1899 1985 | FUNCTIONAL DESCRIPTION: 
: 1701 1941 1 Creates a 16-longword vector used for Sranslatin border characters. 
: 17 ¢ 1366 } ! If the longword has a value less then 56, then it is a border 
; 170 194 : character. If it is greater than 256, then it is the addresss of 
; 1788 1368 ! a border character sequence. 
; 1706 1946 | CALLING SEQUENCE: 
: 1708 1308 1 ret_status.wic.v = ESTABLISH _BORDER_VECTOR(P_PBCB) 
: 1710 1950 | FORMAL PARAMETERS: 
: 21 195¢ | P_PBCB.rab.r Address of PBCB 
: Wid 1954 { IMPLICIT INPUTS: 
: ris 1328 : contents of PBCB 
; 1718 1958 { IMPLICIT OUTPUTS: 
: 1720 1960 1} R_BORDER VECTOR field in PBCB gets set up 
3 1721 1961 1! V=COMPLER_BORDER is set to 1 if some border element 
; \7s¢ 1996 : } s longer than a byte 
; 1753 1964 1 | COMPLETION STATUS: 
3 1725 1965 1! 
: 1558 1967 1 i snot: 
: 1728 1968 1 | SIDE EFFECTS: 
3 1703 1969 1! 
3; 1730 1970 1! NONE 
3 1731 1971 1 !<= 
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NIMUM_UPDATE = Minimum update calculatio 1o~300- 138% 90: 34:39 
14-Sep-1984 15:09: 
BEGIN 


BIND PBCB = .P_PBCB : SPBCB_DECL; 
LOCAL STATUS; 
14 


i Macro to set code Longuor¢ in border_vector if 
' corresponding capability is defined. 


23 


! We use the default character if the capability doesn't exisit 
or if it does exist but the terminal is a non-AVO ANSI CRT. 


MACRO 
SVECTOR_SET(CODE,CAP,DEFAULT) = 
BEGIN 
BIND TT2 = PBCBCPBCB_L_DEVDEPEND2) : SBBLOCK; 


BIND VECT = PBCBCPBCB_R_BORDER_VECTOR] : VECTORL16]; 


SSMGSGET_TERM_DATA(CAP) ; 


IF .PBCBCPBCB_L_CAP_LENGTH) EQL 0 
OR (.TT2CTT2$SV_ANSICRT] AND NOT .TT2CTT2$V_AVOJ) 
THEN BEGIN ! Use default character 
VECTCCODEJ=DEF AULT 
ND ! Use default character 
ELSE BEGIN ! Use specified string 
IF .PBCBCPBCB_L_CAP_LENGTH] GIR 1 
THEN BEGIN” ~! If€'s a Long string 


LOCAL SIZE; 


t+ 


Build a byte-counted string for this string. 


SIZE=.PBCBCPBCB_L_CAP_LENGTHJ+1; 


'+ 


' Allocate virtual memory for the capability. 


! Store it as a counted string. 


STATUS=LIBSGET_ 
IF NOT .STATUS 
'¢ 

Copy the capability in. 


ap LENGTH] 
APBUFFER 


CHSMOVE (.PBCBCPBCB_L_C 
-PBCBLPBCB_A_C 
-VECTCCODET+T) 


ee oe Lee 


INIMUM_UP Sy tg eae UPDATE = Minimum update calculatio 18-5 Sep-1984 4: AX-11 Blis Page 58 
snasen STABLISH_BORDER VECTOR of = 300-1382 99: 3 +38 SMGRTL.SRC BL tm eh oy >, 31 ° (235 
; Hi i 1+ 
31 M | _Set the byte count. 
ims OR 
: 1795 M 2034 BEGIN 
3 17 4 5 BIND COUNT = .VECT creeepe : BYTE; 

3; 179 i] § COUNT=. PBCBCPBCB L_CAP_LENGTH) 
oe: Pe 

: 90 M 9 PBCBLPBCB_V_COMPLEX_BORDER]=1 

31 Oe m ? END ' It's a Long string 

.% i 4g ELSE BEGIN ! It's a fF BeBe charac 

3: 1804 M 204 BIND CH HAR = . PBCBLPBCB_A_CAP *SUFFERD : BYTE; 
; 1805 M 2044 VECTCCO DEJ=.CHAR 

3; 1806 M 2045 END ! It's a single character 

: 1807 M 204 END; ' Use specified string 

3; 1808 M 204 

3; 1809 M 2048 END 

3: 1810 M 2049 

3; 1811 050 %; 
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SSMINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum update calculatio 16-Sep-1984 00:54:58 AX-11 Bliss-32 V4.0-74 Pa 59 mG 
imgee" ESTABLISH BORDER. VECTOR ‘ 1o738b-1882 88:59:88 © HeMcare SRE Ssneminuey oS2; 1 9° 24) -0 
; 1813 1 14 3 7 
3; 181 O3¢ ' The border vector is a 16-lLongword vector. i] 
; } 1? Z ; The nth longword represents ' e character used to represent : : 
at $5 $ | orteheladgrete sft dbytel ‘counted String for the capeoit ie . 
; 1813 28 : These elements are described below: : : 
; i 9 O38 i code description default 2% 
: 18 : 060 2/0 unused space -} 
F H ? Dee i right : : } 
Py . u ' oO 
; is 5 8g : 1 (Over left corner + $7 
3; 18 § 064 14 left ~ 3 3 
3; 18 065 '§ horizontal ~ 3 3 
: 1828 06 ! § lower right corner + : 
: 1829 06 ! tup + 3 7 
3; 1830 068 ! 8 down H $7 
3; 1831 069 ! upper left corner . 3 7 
; 1336 070 ' 10 vertical H 3 
; 183 071 ' 11 tright + 3 1 
3 1834 Ore ‘ 1 upper right corner + 37 
3; 1835 07 4 tdown + 3 7 
3: 1836 074 1 14 tleft + sj 
; Ieee 144 } 15 cross + : : 
we BRE. 
3 1841 079 ! Note: “‘tright’’ means a T with the stem poiating to the right. 
; 1346 bey This is called a left T on the VT100 manual.) 
1 BRE, 
3 1366 084 ! Note how the codes ‘‘or’’ together. 
3 184 085 le 
3 1848 086 
BSR ene 
; 133) 344 HARD_SEQUENCE = UPLIT BYTE(" <ite~-4+i +i +4444") : VECTORLE16,BYTE); 
; 1888 091 2 !+ 
3 1938 4 : Now veptace gach element, 9n¢ ata giao, Tee tee operepe tate special 
; ! character, one was specified in the . 
3 1826 94 ! Otherwise, store in the default character. 
188 eh 
:1 5 $99 SVECTOR_SET( 1,HORIZONTAL_BAR,XC'-"); 
3 1 84: SVECTOR_SET( g VERT ACA ah gh | 
3 1861 SVECTOR-SET( 3.LOWER LEFT_CORNER, XC +"); 
; 1866 100 SVECTOR-SET( 4,HORIZONTAL_BAR,2C'='); 
: 4 101 SVECTOR_SET( 5,HORIZONTAL BC*=!) 
31 1 ¢ SVECTOR SET ( 6. LOWER RIGHT CORNER 2C'+"); 
> 1865 1 SVECTOR-SET( 7,BO0TTOM_T_CHAR,XC'+"); 
31 104 2 $VECTORTSET( 8, VERTICAL £c's"); 
| 105 2 SVECTORTSET( 9,UPPER LEFT CORNER, C'+"); 
3; 1868 1 $ $VECTOR-SET(10, VERTICAL BAR xc he 
> 1869 1 $VECTORTSET(11,LEFT_T_CRAR,£C'+"); 


27 tak aut att anh al ook ak aut ak ak sek amet ak oak eek sek amt anak amt och anh anh mk eek ak aak ak ak ook ak ack eka aL a La LALA LA La Le Th LU ee Tk A ek ea a a aa) 


Ne *Secerere *evee PRP eT eT eT er eel eL OL eLer er ele) SO) eee er ee) er) er) er) ee) ae ee ee 2 2 Oe ee es Te a aS As es ed ee 


fegene Yes 'as 
RCJSMGMINUPD .B52;1 


RNER,2C'+"); 
¥)e 


n° 


IGHT 


- = Minimum update calculatio 
VECTOR 
5 


Pee] Velvulve) 
§ MMMM 
oe i) 
ow eaeca 
>a COoOOoOOo 
= | dl aed aul aed 
= YUUWY 
@O wusuw 
=z t*>>>> 
=I AMHAHHAGA 
zm 
+ F4 
a= oooe—owm 
Or Ccocee 
ZV scorer 
Mw cucucucucuc 
a 
=> 


1 ieataiaaie 


eASCII \ afenntel ei eeeee\ 


OAF9 


28 28 2B 2B 7C 2B 7C 2B 2B 2D 20 2B 7C 2d 0 SOAER P.AAD: 


P.AAD 


HARD_SEQUENCE= 


RE PA RE AG AT RO ADAG ANN 


<< ~ 
— an 
< a 
a ~ 
a _- 
= 
ac & 
w cay w = ~ 
_ ~w ~ > ~o 
o ~ 2 _ t [. 4 
ted Dh aaed co co a = . ” —- 7AY - 
 Oo- ae ae own « ” Wwe ann wom Oo-0 
ca ovU ~ woe Oe ed ad . UDO oo = 
- 2 8 ss. . ca . o A ac - = AK aNaew~ 
aun + enn ~~ <qaqnn AC wo <« =~ = wo @aat = e~-o 
oca@g-owo oO 'woo oOo -~ EH aww a “wm « o 
—- nNvwocecn KeK—oeac c ah MS - Vn WMD + OY 
veraac~-r~wo wn 2D39—~-" ~Rw ee ew dead 
wrooawowe 70D AaOwer OrR~O tO GremM © “am = ef aoe «+ 
> BO WON THOTH™SZOOCOMNTO OF GHYUTRAZERMR YH SOF he Eee 
jm ow §AANNS KUSH SUN EVR BR YO~Y IM 2 BOY NBT Va2evv~~2BzwO 
3 ’ 
oad $~O<4a JITITSTINTEseysy o8F WJOsttidswviva® 
MOr >> > Ske WP TOMY SNK > UO--GOv S->OAwowsw>s>aror>r>o 
SoooooV20 4f JD DODD ODSa zs Yws HOO E IO Da Deo WJOoo-= 
= "EFSF Fe-MOZOOWYAATAATAAOr>DMDOOZOYOKOA0A7%F OFEZOO 
- 
| 
ao 
—s 
ee os 
4) A SS AA 
w - ™N m 
ONO EWP LV MING Ou TO LOMMN Ge Me OP Oe rs OOWwW-- OVO Own 
8S pe eo) dt eee dd DD Add i oe oe oe oA A A A OO OR-F-F- ODE OO 
S SOCSCCOCOCCOOCOCSOOSOCOSCOSOSOSOSOSSOSOSOSOOSOSOSOSOOOOSOOSOSSS 
S SOCOCSCSCSOSCSOSCSOSSOSSOOSOSCOSOSSOSSSOSOSSOSOOSOOSOOOOOSSOSO 
SoS OOOOCCOOCOCOCOOCOCOSOOCOCOSOOSSSOOSOOO OOOO SOOOOOOSO 
VY VOWWWNNWTRK Te OW UL OOOUMOOCOK Menu u DOCODOO— 
ee POSSCCOO—OO— OPO OOM O44 WOK WWOK OM COO & OWONO Oe 
o 


W000 O00 FW 0000 WL OODDO OOO 40 KF WOU DONO 
ff LVV OO VON LOOM VD INN OO LK MOMS ££ LOM ET LOOOO 


OowrOuw co wvwvwro oavw a) wou wv 
wmowou Oo TToo Coa Oo oo oo 
-o - or Ke 
oo o oo oo 
w La co ts] Owwoo ooo 
KREERX wo 4 = sx s3= Ss Oo Oct NOaOw 
S w Sw w 
= 
z So o oo o a 
o So - & 
oS So o Oo 
o So 
S = 
o o 


28 


vo 
= 
Ye 


NOOO OOO IO OS OS OO OI OS OS OS OS OS OI OS OW OW OI OI OI OW OUI OWI OWI OI OW OS [ 


SSeS PS ee eS ee FSCS CS SCS SS FS SSeS *S*S SS SESS *S SSS SS SS SSCS ES HS SRS CHE FSFE HE FEHR FE FE 


1 
; 2098 
: 2099 


e 
° 
° 
. 
o 
Cd 
. 
° 
e 
o 
e 
eo 
e 
. 
o 
e 
e 
ao 
e 
e 
. 
e 
* 
. 
e 
o 
. 
e 
e 
e 
e 
e 
a 
* 
o 
e 
o 
. 
. 
e 
o 
o 
oa 
o 
° 
6 
e 
° 
o 
° 
o 
°. 
o 
° 
. 
o 
. 


Page f 


yanely Oi legeze et mi 
SMGRTL.SRCJSMGMINUPD.B52;1 


<= -~ < 
- oa _ 
< iL 4 <= 
a ~ a 
t = ' 
= = 
~ a A . ~ = LD 
~ w - ws = ~ ~ uw o 
ae — - id > oO ce _ - 
~ ~ 7 — i [+ 4 ~ ~ t 
~~ a A A ” - A&A ~ = © a — A A 
nw ” wo ar wno on 0 nw nn ww onr 
s oo ~ oO- -—c . OrmwO OO a . ovo ~ ow -—a 
~ ca Oo Tad —_- - =~ AK aware ~~ ca eo A -—~_— = 
oO <<- AS os “xc * ow @mat - @-o wo <<- ATC os “=u 
< twowo- £0 “~~ a “ew * o « twowoen- £0 aV—e 
wan eer se ah MS - . wen AMDR eNO OY Kee ec a MS - . 
oo nm 72D7Dw~YS (YOMW ee oe ™~uw ed ee oo nn ]7D7D~Y~ {~n~u ee el a, 
O—- ODM AAO ODB~w~O COST WMOM +O™ * TODO HO- VSODHA0A0 ON~O +fOKVHCZAMeDe 
Or WER TsZZOOumvoe OF COYNE TSMR yw VOY CSV VENER. ZZOOUNOn— OF CO~wuyrvuaee 
Wn Cer ~O VEN CBO —MBB—Y - BOVE YO Y Be BH WH HES CBHw~Y -— Maan 
ro 
coos ee Se Fe @ LA wn mn ww @ a jt sein 
om N~NUIOUW JETT ITINT TV NS YOST YIVIVOO NIOY STE TINT Tee 4s wd 
S— PR WTOTZMMMNY 2H IO GOV > OtAwon4I>0 >> 200 Se wlocvnnwn>nun i@-aauw>-qaaw 
ON ]2 If ID DD DODD st Uw UMOEE YODDIO IN000$fOV]Z IE ID DD DOD ae UOOws I OOoacz 
TT Fe OYVOA00020000+- OOOZTOYOIAAVIFOFTTITOOZ>-OIOvYAA40407200080- O00 Ow~® 
oon 
--— 
te 
aa ore ee 
NOoe@ -+-. * id “a A fe eh Gt A AS AA 
“Yn AM & of o- N mr w or o o 
i) mo ~ oo - - - -— _- -— -- 
- Ne se Ne OS SF BONO UN OO BO OO Oe ONS 
Oooodt det eee ODOOOYUVV ACCC OWWWwWe uur OOOCOe eee rrr 


COOOCCCOCOCOCOCOCCOOCCOOCOOCOCOOCOSOOCOOCSCOOCOCOSCOSOOSOS es KKK KK KS SS SS OO OOO 
SOCOCCSOOOSOSGSOOSOSOCOSCSSOSSOSOSSSSOSSSOSSOOSOOSOOSOSOSOOOOOOSOOOSOOOOOCOOSOOOSOSOS 
SOOOCOSOOOOOOOOSOCOSOSOOSOOSOCSOSOSSSSOSSSSSSOSSSOSOSOOSOOCOSOOOOOOOOOOooOoSO 


LNT TE OO OL ODOM O heer MNn & & DOCOCDOO CNV eT OOH UL OODOUM OOO eK KN 
HOO OP COME OL WOK WWI OF VOC & OWONO OD OO OF OP OOOMO O64 WOK WWO oe 


WO TON WW 000 WIT OODWO OO ue LO — Ph WO WR. DODVOO LT OM WWOD Ou WtOODD OOO <Ou 
OQWOON Es LOM VD INOMNOO CL - DM ONS £ LOM CF COWOO OOOO EF LOM VD LNOMNOO LOT 


ATE = Minimum update calculatio 1 
0104 


vv—raTr Ovo mm wow oo oo w r~v—rer OOO Let) 
vTvTro Ove o ~f o- oo Oo ro ONE o 
- —~w - - —Ww 
o oo So co oo 

~ uw or oor~r~- -—- @& OwMoOooo rk ws ow S35 - 
- 4 < or owt oOo oO Odmnrmoawov << < o~ owt © 
Oo 

_ oO o o 

vw wT Oo Oo ts] ow Tr @® o So on 
uw © - o o oo oe a ©& - So o 
> o o =- & oe 

a Oo o o oOo i=) 
oc o o So 
aw o So So 
2a o So oS 

x oOo oO o 
=3 ~ w oa o 
= ¢ Oo < 4 So 
—= 
zm 
oe 
= VY - 
ADM oOo Oo 
AL 
Or 
=m 
Wu 
a 
> 

v 
= 
~] 
= 
= 
=z 
a 
= 
aw 
Ars 
Oo 
=z 


; 


=32 V4.0-74 


12 
~3een 188s P8:8si8e = eNat Ocha caea noon oS251 


1 
1 


pdate calculatio 


ESTABLISH_BORDER_VECTOR 


UP SMGSSMINIMUM UPDATE = Minimum u 


SMGSSMINIMUM_ 
1-045 


So - 
So o 
= — 
N ~N 


~ <= ~ 
an = oa 
ce < e 
~ a ~ 
_— 4 - 
~ = ~ 
. ~ < tall ° ~ 
w = ms « w ~ w = a « 
N > so - i N ~N > o ~ 
— i ac ~N ~ | mt q a Oo ~ 
wn —- f® yw AR = a kcal A wa ” - A wr A = a 
WMBdOo- oO now ” wc nr WMOCo-Oo mown ” 
. ODNaZOooae & oo ~ om Nee io OOMaZooc a . ov ~ 
~ Ar vaewT ca wo A ow fF Ar NaEYTe =m <a ~o 
2 mat + «<s~o oO <<“— Ae os “co 2 @ @at -«3~-co oO <<t“— A= 
cn SOO o « tiwowwosnA- ££ avo en SEO o « iwowon 
—™. JIOWnDre- +m ~~ RK—e—oc ec ah MS - _—~ WIWDeme © NY Ye Kec sc ol 
aw -2n- oo -— DD~ ~h-o Ren ee 8s 8 OA aw -e2n- oo -— 3a237" ~ro 
wns 8 ew OOO Or VOODSOA0A0 OFR~YO *fOeTRNMDHMA wm™ + *~DO 410-VHOHA0A0 Or~ 
HNN VE SOU EMAWN Z ZOOM TO OF TOY UT OCO — OVO} OE EVO E — SM ZzZOOM sO 
S—OBIE KN —  / QRVBL VS VS SVE VSE— CBM CIM BBM V— VHF VNK— YY BM Bene MI CV CV 
am | @ —_ af —+@ 
arr svagmd wid STEIN TT oe Iv —_! +HSOGITEoIJVIVvegagad nwiiagoa ITtrtIvst 
Q0H SSOP > hOO Se WTOTMN NY SYK IO} GOS OAwonwns> OS > 2>O Swe orvunwv>enm 
OaD7D4f 0 JU0O00Hf OM 2Z YUE ID DDDOD aes Uw IMO E UO DD IO UI0O00O 2 OM 2 YE DD DaTaOoOD 
OAOVEOFFZLOOZ-O OYA 400200080 OOMOZOVOIAAVZOTELOOEZ- OXY Ow~0000F20 
St lh A Aw fA ro Pe ee 
Oo -—-™ -_ rw oOo f co oo om 
~N oes N oe NN ™N N re ~» 
Owen SF OUP WI ODWOKW ST OO VOWOVUE  - D@MOurr DMoowr- fos Dvr aur Oeawwne@auw 


WVUNOOOOP-P-F-DDDDOOOOOO ST eee OMOMODOODVOSVV COC0C0C6WWwwwuwnOO Coonrncrcnewv 
OO OOOO 
OOOOCOOOOSOOCOOCOOOOCOOSOOSOSCSOSOOOSOOOSCOSOOOOOSOSOOOOOSOOSOOSOOOOOOOOSOSS 
SOOOOOOOSOOOSOOSOOSSOSOSOSOSOSOSOOSOSOSSSSOSSOSOSOSOSOoSOSOSSOSOSSSOSOSOOOOOOOOSOOSOS 


Hee DOCODOO LNT eT OO Oe OCOOUMAO OO RK mK Men & & DOCOCDOO— 4H Rese OO Ue 
VOC uw QWOWOO- AO Or APA COOME O44 WOK WWOK Om VOC & QWONO Oe COO OOO OOOMO 


Ph WOO Us. C0000 00 FTO WW 0000 & UW LOO 0000 OM 0 LO HR WO WIP. COCO OW ET COLIN LH LL 000 
Of BOM ET OWOCO OOOO EE LOM VD NOM DOO L— UM ONO < LOM TF COWOO OOO ON ELON YO 


vw wv w Twwrasr OAO ~_ ow Tro wT wwrsr OaO 
o- oo o Tro Oa: Oo -—— or o TrTro Can 
_- --e - er -e 
Oo o oo o co oo 
te] OUnooono Pr w ow <or - @ COuUMoooo KF a 
~o Oocmr~moawow <« < or oot Oo OO Ochnmowow <_< < 
oOo oO o 
ow Tv - wo Oo o o ow r—- So So 
oo oa Oo - So - oo So 6&4 = - 
o - & So oS - S&S 
o o Oo So So o Oo 
o o i=] 
Oo o o 
o Oo So 
o oOo o 
w oa oO w a 
— < o < ? 
Oo - w - 
— oO - nd 


63 
4) 
2102 


S PSPS FS FS FS FS FS FS FS FETS FS FS FS FSFE TS HS HS HS HS HSS HS HS HS HS HS HS HS HS HS HS HS HS FS HS HS HS HES HS HS HSER ESSE SESS HSER FESR EEF EHR HES 
oO 
a 


-_ 
*e 
N 
ne 
wz@ 
™m -« 
ia) 
oa. 
=> i 
waz ' 
>a | 
= 
NO <= ~ ? ~ 
m= Lad no = oa 
wm <= 4 << « 
or a _ a ~ 
nv t - ' _ 
—x = ~ = ~ 
—mM « coed o ~ [4 cee) > ~ 
@s: uw wn w = ~ < w ~~» w = ~~ a 
a) _ ~ ~ = oO —_ _ w ~ = O ~ 
ee a _ t is 4 Oo ~ t _ t [- 4 w 
-a A dilated yn &§F§& AYere ee ON a .-A Aw yn fF AY ZA | 
‘oO wo nanr WwMnTAO-O nn ” woo mar WMOMUAO- Oo 
<= ow Mo . oOo xa wTaooa . ovo ~ ow ed * 4 . OmMNeZooa bd 
44) Se ew Fe NaYTY - <a ~o A —_— - Am NvNa~ ~~ 
>w oes xo = @w @ma -++«38~-CO oO <«<it“~ AS os ‘csr @= © @a -+«3~-co oO 
=u aw cn Se Oe o « twowo- £0 awn CK~ S oe 
“nD _ _—~_. UMDMme + NOY —e—ec ec ah MS _- -_—~_ WYODme + mV ~ 
Ren RK 8 8 OA au -onn oo -— D2D~ ~wsuw Ren ee 8 8 Oe aw -a-- o 
SO Ow acr-mnweoeF ~~~ + *f~/OO 470O0--CODHOA0A0O OM~YO +O TRMMODOM wm™ + -~DOD wo 
over —OF ere wT Oech. OVO OC SVOVNEOS— SZZOOMNGO— OF SVS WT ORM St Or Sr EE OrU 
WN CRBMw~MM=BzBM~-MAVUY2 CH ~~ SBM BY Me TF SVEN CRBYw~ TMB Bw ST BORE HOU ~S ~~ ave 
AS om a a ~ 
ce) miaiw m w @ 2 932 Lew oe mm ww @ 
om Teves ob. jJSOITITIgvsvgdgqa sno JTTIINTTyseyse os YJjowttrtiwvowvgao ~~ 
So— MIO} GBOMlPO8wOMH) 4330 22> 240 5 -—WTOTMMMNY>KH UO GOH SOaAwavKni>oar>r> >vuva> 
JTF A2VlO-ODOOZTOVOIAA VT OSS TOOZ®*OYOAAACATOAAVHO-DMOAOZLOvOaeaavszo zooz 
on 
-m 
i! 
aa 7 of oe ee oe oe oe oe oe 
Noee@ AS fA fe Pt oe DP > ef A of Sad 
nn ve Tr wh oO ~o oa on is na) wT [Vay 
se we ms | A mee Le] ww wr wT w wT 
oor 
- Oth nn ee COB Oe ete Ow Ow MEF Ow KO Oe NTO Ve OSWNOUr™M 
FF TT TMNNIN OOOP-P-P-P- CODD DWOOOAAOO Kf tC OOODOOVVVVV CO OWwwe uw 


o 
- 
~ 
ae 
at 
a 
Vv 
— 
oe 
VY 
a 
~ 
@e ~~» Tru ww w vwvwasr Octo ~» oo wo w 
wo o om on o rTo ONE o -—-™m on So 
a _ - wv - 
Ss Oo o oo oO 
€ 
~ | 
Ee 
= 
c ow <or-- oo oOumeooouo w ow <or~-=- @ ounoewooo 
ze or owort oOo oO Odanrmowowv <« <= or oot oO oO Oocanmaow << 
oO 
i oOo o o o 
vw oO w ow Tren ww Oo f=) [-<] ow Tr @® 
wus So - oo cae - =] _- oo oar 
-> So o - Oo So o - S&S 
<x st o So o oOo i=) So o So 
ox o o oS i=] 
aw o o oS i=] 
2a o o o i=] 
a Oo o So So 
—@ oO w oa eo w on 
=z 6 o ? <= o 4 = 
—=z 
zm 
at 
= co - Vv - 
AD _ oO - o 
At 
Or 
z= 
Wu 
a 
p— 
a 


1 teceaalaa 


yg SE EE ES EE WE SS ST YE | 
Wor PROS PS eS HS PSS HS HS HSCS HS SSCS SSS HSCS HSS SHS HSER SSE HS HR ES HE HEHE FETS FR HR HE OR HER He 


—— 
} wo / wz 
or © oO 
| N = - 
j — N N 
| oa Ter ee ee eee ere ee ele ele el ee ee ee ee ee ee ee ee eee eee ere er eT eter et ee oe) ee ee ee ee ee ee 2 2 a ee 
Li] 
' a 
| 
| 
i 
- 
*. 
N 
ue 
7@ 
™m « 
1a 
oa. 
a] 
wa 
oe | 
= 
NO <a ~ << 
m= - on _ 
mw 4 < z= 
or a ~ a 
anv t - ‘ 
a = ~ = 
_—W [4 A . ~ < val 
@: w - w = ~ «= w oa (ev) 
=! _ w ~N > oO ~ bee wn ~N 
ae ~ | oo : a [. 3] ~ 7 — cos 
—-a a -— A A ” - @&@ Yr A SN a -— eA Aa “” 
‘oo awn n wo Ar WMOOoO-0 ann ” ww ona 
x<x= oo ~- own We a . ox oc oo a . ovo ~ ow Wneew ° 
«Ww ca oO et e,re- A Ar NaYTS A <a o oad NS A 
>u <i<~n Ae os -=c @ oo @<«t + +<e~-oan © <<n— Ae os “=r «=O 
1wo onan £M awn en Se OR o « twowo- £w “~~ a 
~ Koc gc a MS - _ ~~. WMDMme + NY Yn Kec ec a MS - . _/'— 
o nam DDY ~Ou Ren eK 8 8 OA aw -onn oo ma a2>~ ~ouwW en eK wr A 
—-42@DMVO000 OFrvwO *<OeTrMBMDHM ~~™ + *~YOD WOr-VMDHA0A0 OD~O *f4OeMZrWHDM + 
ovr reo Z2ZOOM TO OF CO OST TEM OVO OE STUN EP 2 ZOOM O— OF Oe VR VE 
WH wwe Ve —CBVMN~- MM B BN MN VVUMKBIZWHVU~S - BNSBY NSN SVECVe- CRBYw~ MMB BO~ OB 


@maouwe wr Re er re De PBA Base eee ae 
ee ee 8 £6 QO ICICI PPPIIIN AT AT TT WMOUN OOOOPR-P-P-AP_P_ PR COCO eect ce OOow 


WONT — Te OO Ve OCOBOUMAF OOK KM & & DOCODOO ANVT RK Te OO Ve ODOUMOC SO fee mMen 
O-— OF OP COOOME O64 WOK WWO OF VOC OWONO Oe OOM Or AP OOO MO Ou WOK WWI Or YU 


TOWN WW 00000 &_ WI LOO 0000 OOO £00  WIVO WIP. COD OO ETO WW O00 Ou WW LE OOOO OMu £0u— 
WOON FT LOM VD BMNOMN DOO FL — CUM ONO CF LOM TF COWOO OOO U0NE LOM VD INN OO <—-DWMOVO 


nl vw 
nm - 


000000006 99 


000000006 90 
6 
000000006 00 


[24 
oO 
rae 
YU 
ww 
> 

t 
[+ 4 
ud 
a 
= 
oO 
@ 

a 
= 
” 
4 
_ 
@ 
< 
— 
” 
w 


- 
o 
- 
ee 
a 
—_ 
s 
Vv 
=’ 
oe 
S) 
@ 
~ 
@ 
a =] 
a 
S 
€ 
- 
Cc 
= 
= 
oc 
bo 
e 
< 
a 
a 
> 
= 
_ 
= 
—_ 
=z 
= 
= 
A 
A 
oO 
= 
”" 
a. 
> 
‘ 
= 
at 
z 
un 
5S 


Sm 


i- 


=7 
ne 


1 Bliss-32 v4.0-74 e 
YOMGRTL SREISREMINUSD 69251 age 28 


AX=1 


“39-1964 90:54:58 


1 
1 


VECTOR 


MGSSMINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum update calculati 
sngeen ESTABLISH. BORDER npgetaint centage in 3 


eee eee oe oe oe 


w wo 
o So 
— _— 
N N 
Sete te Fe FS FS FS FS FS FSFE FS FS FS FS FS FS FS FS FS FS FS HS HS HS HSS HS HTS SSSR HS HR HR FR HR FRE FR FR HR HR HR TR HR Ce ER eee Fe *e re rere reareare 
~~ < ~ 
oa = oa 
4 < a 
~~ a ~ 
_— i — 
as = _~ 
. ~ [24 A o ~ 
= ~ « uw Ld w = ~ « 
a oO ~ -_ Oo ~_ > oO ~ 
t a ~ ~ t = t a o a 
- fA - = MM a — A Aw w” - A Yr = MM a 
WMdOo-~ Oo nn (7, wey nr WNMOAO- 0 nn ” 
on»nwocwoo a 7 owe ~ or oe az . o>racoo a . oo ~ 
Ar NawT~ A ca Oo can -_- -—- A CA NaS A aa ~o 
@mat - s~oOo oO <<ait“~ AS os “xco 2 @o @at -+«3~-cCO oO <<-— AS 
~~ Se OR o « twnowo Aa EM a~n en Se OR ea «€ ‘wo oA 
~ wmDnme + mw wr Keer ec a MS - ~~. UMDMme = OY ——oxc = 
aw -—-a2n- oo a DDvy- ~ouw mn eK ee A aw -aenn oo -— 2>,7y- ~ouWm 
~~ + ef~OOD O-- 4OMOA0A0O OFPRYO *COKeCTRMMDSA wen + -~/DOD HO-VMOSVA0A0 OD~O 
NSO VE SUN EMA Z ZODMNO— OF ZOYUTOLO— OVO OE VON EK — Em Z Zoom oe 
MMOBREWM~—-~ BOB~Or~ OVENS TBMw~ OM BB. ~~ OBMYvBzZYM ~~ Br. Ow Rh wR CVU EVae = 
ad = ad —_ 
ZIV sV8vog wigs ITIITINITTwseCnI9 oF Jjaowsrtrwswsvwvgagmd nwsaonw jitrrI~vrst 
ANUS OPPS 2O Se WT OTM NY > IUD BOYS OAw0MH 3s SOP rer VNO Pe wegdevunwnv>eunnws 
BAVEOTETOOZ+OYOw~A40040240000+-ODOAOMZTOVOaOAaAvltoOstsezLoos-O Ow aazaa 
fh A a AA AA & Ao ee 
o -—~w ”_ rw oOo Kf co ao - 
oO ono o ono o oO eo or n~ 
MBOLVVVC CO OWWwwWe uw eee sr OOOCCSCK eK — OSA RAKS op Bante 
>> &sbss ese e eee eee ee eaeeeeoeoooeoeebbbdbd bbb ssi 
OOOO OCOCOOOOOOOOSOOOOOOSOSOOSOSSSSSOSSOSOSOSOSOOSOSOSOSOOOOSOSOOOOSOSOSOSOSOSOSSO 


we DOCODOO— LNT Te OO Ue ODOM OO RK er MNe &  DOCOCDOO— CNV RK Te OOu VEO 
AO uw OWOMO Oe OO OF OP BOOM O44 WOK WWO OM VOC & OQWONO DO Om Oe OO OOO MO oO 
WINO us. C00 00 ££ AT OW I I O00 0 &_ I FOO 0000 OOOO PF WO WIP. DOW OO CT OM WW OD Ou wet 
<ttOomn <I COWOO OOO ON EF LUN VD LMNOMN OO CL — FM OO << LOM EF LOWOOQOWOOOVNE CONVO 
oo Tro w Tvraer OWwO ~~ wu Sx w Twv—rer OVO 
ory om o TwvTo Ove Oo we m~ o Tv—ro Ove 
- - «WN _- - «WV 
o o oo oOo o oo 
Ouanloeoowo rr w ow =o - @ owwoooono wi 
Odmnrmoawov << QL or- owt co oO Oodqnmowow <« <f 
oO oO oOo 
ow Tre & o So wr ow Teor ww o 
oo oa mw - oS N oo oam - 
oOo - o& o So - S&S 
o o oOo So So o oO 
Oo So So 
So So o 
o oS So 
Oo o o 
o re w on 
< o < 4 
- ao - 
Oo ~N oO 


=7 | 
We . 
oOo“ a (2) 
| ow o o 
| ™N = - 
Paes ™N ~ 
| y ed ed ee el ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee oe ot oe oe or oe oe a a en 2 Y erereareareareaereareareararare 
a 
| 
- 
*.* 
™N 
ure 
~7q@ 
™m -« 
‘oa 
oa. 
a] 
wa 
>t 
= 
NO <« ~ <= ~ 
m=z o - oa 
‘mw <« a <x a 
on a ~ a ~ 
nv ' - 7 - 
-=<= = ~ = ~ 
— «= read . ~ « A ~ ~ 
mom: w w uw = ~ iL: 4 uw ~~ w = ~ <= 
—+ ~ ~ > oO ~~ — [=] ~ Te Oo ~ 
-—e t ~ _ t a So ~ 4 ~ t a wT 
-=< -wo* Aa non &- Aer A US Qa -oA A wm no fF A Yvr A US 
to wo nna Wn ToOo-o nw ” woo mar WMONAO-oO 
<= woo Lt ned * oO roc oo a . ovo ~ oo o-ae . ODO aoo a * 
=n Oo - - Ar NaY ca oO Fe er - « Ar NaYSY ~~ 
au Os ar @= @ @at -+«3~-cOo oO <<-~ AS oes csr =@= @ @<a -3a~co wo 
=o ~m en“ Se OO o « ‘(wn Oo aA EMH aww | ed tal o « 
"na _ . _ ~~. UMDMme + NV OY eo ec a WMS _ _—~_ WIMDme © OY 
en kK wr A aww ann oo a D2~ ~rW ee ee oe eS aww -enn oo 
<I OM ah CUMOeR ween + YOO H0O--VOSVOA0A0 OM~O +O ZRMMDHM wn + *~DO Woe 
Or OF Se Of — OVO} OC SVOVEOS— SZOONMN DO OF SVS WT ORM eR ST Or IT EEO 
WN BM~P MAB ~P. BTR YSTY~ BP. BH. ~ OV CVB— CBM~ OMB BO~D BS VYRevs~~B2BOE~ 
aS _ =! —_ 
a 
“se 6 6S) @ n22u mm ww @ . a ot n22u ms Nw @ 
om 284 ™ YOYITTYYsVeVvoaOoO NYO IT TITINITTyee os YSOwsrtrIsvunvoeogd ~w 
So— $0 980M O08 ws 1250 22> 240 SWZ OTMM NH SHH UO GO SPaawoannirsrar>>>svar>re 
TTF VOr-ODOOZOYrO<OAOAYF OFTILOOZ+OYOvrOAA4040F0000+-DOOZOv Osea avZostzszeowosZe-— 
oo 
-— 
se 
aa - of ee ae * oe oo ef oe oe ee oo of 
Noe FP fA FR oD o 4 SY fA A AP 
nw wee Tr wT ~o ~o oa on uN Mm w mo 
i) Lt ~ ~~ ~ nr ~ coco o ow oo coco 
— Oe WTO SUNG ££ KN VOTO Oe KM LOK MF CO SO FOU FE OO 


VECTOR 


UP SMGSSMINIMUM UPDATE = Minimum updat L i 
ESTABLISH_BORDER update calculatio ] 


1 tetanaiaat 


2 


> &> & & & & ss & >> 666 66 6666666666666 6 6 6 42. a ae A ee ee ee el a a a aaa aa al 
SDOOOOOOSOOOOSOOOSOOSOOOSOSOSOOOSOOSOSOSOSSSSOSOOSOSOOSOSOOSOSOOOSOOOSOOOOOOSOoOOo 
COOOQOOOO OOOO OSSOSSOSSOSOSOSSSOSOOSOOOOSSOSOOOOOOoOSO 
DOM GO Leer DOC ODOO— LNT Rese OO Ue COOMA OCO RK me Menu & DOCOCDOO-- an 
WO WU OF OOO & OQWONO DK AO OF OP BOOMS Oe WOK WWOK OF OOO. OWNED OS 


WOOO OODu £OuUK—w JOWP- DWOWOO FT OM WWODDOu WOOD O OOO LOL fh WVO Ur DOWUOO 
ONO <-—- DWM OVS Ls UN ET LOWOO OOOO EF LOM VD ZNOMN OO L— CM OMS <€ LOM TE TOWOOOO 


mm ww oo wo w vTvwrvTr OrfO ~~ ww 4 w 
o fT ue om So Tro Owe o Pe orm So 
- - —~N = 
o o oo Oo 
or oo~=- @ Ounewoono rr w ow $3 - wo SOumnooono 
or owt oOo oO Odnr~mowov << < or owt Oo WO Oocdrmawow << 
o o o Oo 
o co ow Tr=-—- @® Oo So Lv ow Tre 
So N oo oa wm _ o ™N oo coaw™m™ 
Oo So - oS oS So - & 
o o o Oo So [=] o Oo 
Oo o So So 
o o [=] So 
o o [=] S 
o oO oO So 
~~ (ve) oa oOo w oa 
oO <f <= [=] <= < 
Ww - Oo - 
N oOo ~*~ So 


H 12 
SSMINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum update calculatio 16-Sep-1984 00:54:58 AX-11 Bliss-32 V4.0-74 Page 67 
anges ESTABLISH_BORDER_VECTOR 12-88-1382 90 3giee SMGRTL.SRCISMGMINUPD .B 2:1 9° 28) =( 
4 12 A BNEQ 87 ; 
§ p ¢ CLRL =. (RB) : ; 
1 BRB 89 $ : 
44 AE p4 60 87$: CLRL._—_—INPUT_ARGS : 3 ¢ 
44 AE OF PUSHAB JNPUT ARGS ; 34 
0104 ¢ DD PUSHL ORB) : ; 
D A PUSHL R : ; 
g10 6 OF ¢ PUSHAB 256(R6) : 3 4 
10 AE 24 F 3C MOVZWL #579, 16(SP) ; 3 ¢ 
10 AE OF i: PUSHAB 16(SP) : : ¢ 
A 0d 0057 PUSHL : 34 
000000006 90 FB 0 7 CALLS #6 SNGSGET_TERM_DATA : 3 ¢ 
E 8s: LBC STATUS, 96$ : zs 
6 DS 00585 89$:  TSTL (RB) : 3 ¢ 
1 5 BEQL 0$ : 34 
OA 03 AB €9 00589 BLBC (R11), 91$ ; 34 
06 6 18 £0 0058 BBS #27, (R11), 918 : 34 
30 A B bo 591 90$ MOVL #43. 48(R75 : 3 ¢ 
A 1 393 BRB 94$ : 3 ¢ 
01 68 D1 00597 91$ CMPL =-« (RB), #1 : 3 4 
F 15 0059A BLEQ 938 : 74 
34 AE 68 1 ci 059¢ ADDL3. #1, (R8), SIZE F 34 
30 A? 9F O05A1 PUSHAB 48(R7) : 34 
8 AE 9F 005A4 PUSHAB SIZE : ar 
000000006 00 9 FB 05A7 CALLS #2, LIBSGET_VM : 34 
06 A D O5AE MOVL R STATUS : 3 
04 AE €9 00582 928: = BLBC STATUS, 100$ : 3 ¢ 
59 0 A B09 0586 MOVL. 48(R7), RO : par 
01 a9 0104 06 68 g 05BA MOVC3 (RB), @260(R6), 1(R9) : ; 
9 68 90 005c1 MOVB. (RB). (R9) : 3 
0001 C6 02 88 O05¢4 BISB2 #2, 209(R6) ;  § 
30 A? 0104 06 9A paca 93$:  MOVZBL 8260(R6), 48(R7) : 3 ¢ 
6A D3 0501 94$: TSTL (R10) > 2109 par 
04 1 0505 BNEG 95$ : 3 ¢ 
68 D4 005d CLRL = (RB) : 3 2 
25 11 00507 BRB 97$ : 
44 AE D4 005D9 95$: CLRL _—sINPUT_ARG : 
44 AE 9F 0050C PUSHAB INPUT ARGS ; 
0104 C6 DD 0050F PUSHL  260(R6) ; 
58 DD OES PUSHL R ; 
010 6 OF 3 PUSHAB 2 6(R6) ; 
10 AE 024 F 3¢ 005€9 MOVZWL #576, 16(SP) : 
1 AE OF 3EF USHAB V6<sB) : 
SA DD 005F2 PUSHL R10 : 
000000006 g F 4 CALLS #6 SHGSGET TERM_DATA : 
e FB 968: BLBC STATUS, 104$ F 
b FE 97$:  TSTL (RB) : 
5 BEQL 38s ; 
03 AB E PL BC (R11), 99% : 
1B E bos e , (RII), 998 ; 
B p A 98$ MOVL #43. 52(R75 ; 
A BRB 102$ ; 
8 : 99$ CMPL = (RB), #1 : 
F 1 BLE " $ : 
1 § 1 ADDL3) #1, (R8), SIZE : 
34 AT OOF 1A PUSHAB 52(R7) : 
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MUM_UPDATE = Minimum update calculati 
STEBOARD = Output pasteboard via rou 


01 
A t 1 
SBTTL ‘SMGSPUT_PASTEBOARD - Sutput peste 
LOBAL ROUTINE SMGSPUT_PASTEBOARD ( PASTE 


FUNCTIONAL DESCRIPTION: 
This routine is used to get access to the contents of a pesteboard. 
The caller specifies an action routine. The action routine 
will then get called once for each Line in the pasteboard. 
The action routine will be passed a descriptor for that line 
followed by a user-specified parameter. 
CALLING SEQUENCE: 
ret _status.wlc.v = SMGSPUT_PASTEBOARD ( PASTEBOARD_ID.rl.r 
;P“PRM.r lr] 
»P_FF_FLAG.rl.rJ) 
ACTION ROUTINE: 
ret_status.wlc.v = RTN(LINE.rt.dx,PRM.rl.v) 
A false status return means stop sending Lines. 
FORMAL PARAMETERS: 
PASTEBOARD_ID.rl.r pasteboard id 


P_RIN.rzem.r Address of routine to be called. 
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board tine’ 
BOARD TN, P_PRM, P_FF_FLAG ) = 


oo 909 09 09 C9 CD CD CO CO CD CO CD OD. fo Te Je Je Je Te Je Je +] 
SSSSSSSSSLSPOGO SRS BRO RIO IN 
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P_PRM.rl.r User-specified parameter to be passed 
along to the action routine 
If omitted, a 0 will be passed as 
the user parameter. 


flag (0 or 1). If 1, then the first 
e passed to the action routine 

lL be prepended with a formfeed. 

the output device is a terminal 

if the terminal does not have 
MECHFORM characteristic, then 
ne 
() 


3338 


P_FF_FLAG.rl.r 


AUS WN—OOe~n 


feed will be used instead.) 
t specified, then no form feed 
be prepended. 
IMPLICIT INPUTS: 
contents of PBCB 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 


SS$_NORMAL Normal successful completion 
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PRM = .P_PRM 
FF_FLAG = .PuFF_FLAG; 


TEMP_BUF : VECTORC512,BYTE), 

STATOS 

BUF _DESC : BLOCKC8,BYTE), 

ACTION_PRM 

ACTION-FF_FLAG, 

PBCB : REF $PBCB_DECL, 

WCB : REF $WCB_BECL; 

NULLPARAMETER; 

BORDER_TRANS _: VECTORC16,BYTE) 
INITIAL (BYTEC* 
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Descriptor for buffer to be 
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wth 3 Breep= 198d $S:09s8¢ © FemGR Te SRESSREMINUED 692; 1 (27) 


54 
SMGSPUT_PASTEBOARD = Output pasteboard via rout 1 p- :09: 


-w 
pe 


1+ 
Set up the descriptor for our buffer. 


Ss 


SSsss 
PIPIPOPDPIPININPOPODINININININININONINYPPINPIPIPINPIPIPIPIPINONONY 


; 1967 : SSMGSVALIDATE_ARGCOUNT (2,4); ; 
: 19 4 2 t+ 

: 1379 é Get the pasteboard control block from the pasteboard id. ‘ 

: 197 7 : 

; 1378 8 SSMGSGET_PBCB(.PASTEBOARD_ID,PBCB); : 

: 1975 10 2 t+ 

; 1377 12 j Set the value of the action routine parameter. 

; 1398 14 2 IF NULLPARAMETER(3) ; 

: 1980 15 THEN ACTION_PRM=0 : 

3 1981 16 ELSE ACTION-PRM=.PRM; 3 2 
: 1988 1g 56 

> 1984 19 2! Get the value of the formfeed flag. ; 

: 1986 6 os ; § 
> 1987 é IF NULLPARAMETER(4) 3 
; 1988 THEN ACTION_FF_FLAG=0 3 
: 1282 ; ELSE ACTION-FF-FLAG=.FF_FLAG; : § 
: 1991 . 2h : 2 
3 1236 7 ' Set up the WCB reference. B 4 
138 Fhe : 
: 1995 0 2 WCB=.PBCBCPBCB_A_WCB); 2 ¢ 
: 1997 8 54 7 
; 1998 s i Temporary fix: txee 3: 
ae he : 
: $004 36 2 IF -PBCBLPBCE A_RBF) EQL 0 3 
3 $05 37 THEN PBCBCPBTB_A_RBFJ=TEMP_BUF ; 3 é 
: 39 

; 40 

; 41 

; rk BUF _DESCCDSC$W_LENGTH] =.WCBCWCB_W_NO_COLS); 

: 44 2 BUF-DESC DSC$B-CLASS] = DSC$K_CCASS_S; 

: 010 45 2 BUF-DESCEDSCSB_DTYPE] = DSCSK-DTYPE-T; 

: 2011 46 BUF “DESCEDSCS$A_POINTERJ= .PBCBCPBCB_K_RBF); 

: $018 4a 5 te 

; ae rh Call the action routine once for each Line in the pasteboard. 

: 201 51 3 

: O19 3g INCR ROW FROM 0 TO .PBCBCPBCB_B_ROWSJ-1 DO 

: 3 37 BEGIN ! Output a row 

; p 9 38 BIND 

> 20 g 3 WIDTH = WCBCWCB_W_NO_COLS) : WORD 

3 20 58 TEXT = .WCBCWCB_A_TEXT_BUF]+.ROW*.WIDTH : VECTOR BYTE), 


= 
a 


13 
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rages ¢ SMGSPUT_PASTEBOARD = Output pasteboard via rout 1 730071 38e 99:39:88 SMGRTL j eM YN BS2:1 age of 


Bl 
S 
ATTR = .WCBCWCB_A_ATTR aot 2+. RGe BET : VECTOR BYTE 
RBF = .PBCBCPBCB_A_RBF : VECTORL ,BYTEJ; 


BIND ROUTINE 
ACTION ROUTINE = .P_RTN; 


1+ 
Copy the appropriate row into the record buffer. 


CHSMOVE (.WCBCWCB_W_NO_COLS),TEXT,RBF); 


1+ 

! Scan the attribute buffer looking for any border elements. 

! If we find one, change its representation in the record buffer 
to something more reasonable. 


FEF PWNWIWIIIwwiwrornspororor 


pe lolelelelolelelelelelolelelolelolololo) 
VIEW| O ODNOAOUE WN OO OONOULS WN —"OVONOUS 


INCR COL * 0 TO -WCBCWCB_W_NO_CO 


Scan record buffe 


° LSJ-1 DO 
. r 

e CHAR = RBFC.COL 

( 

H 


= : BYTE; 
RAL_BORDER_MASK = ATTR_M_BORD_ ELEM OR ATTR_M_USER_GRAPHIC; 
gATTRE COLI AND BORDER_MASK) REQ 0 
IF .CHAR GTRU 16 
THEN aot Pir te sone 
‘ves RBFC.COLJ=.BORDER_TRANSC.CHAR<0,4>]; 
END; ' Scan record buffer 


STATUS=ACTION_ROUTINE (BUF _DESC,.ACTION_PRM); 
IF NOT .STATUS THEN RETURN .STATUS 


END; ! Output a row 
RETURN SS$_NORMAL 
END; ! Routine SMGS$PUT_PASTEBOARD 


SOoooooooo 


NNER 
0909.09 09 0909 09 09 09 09 SII SII INO AAO AOA OOO 


oO uw 
NAME WN OOD NAULS WN $0 ODNAULS WN OVOONAULS WIN —O” 


jejelelelelelo) 
VIGTIMAUIUIVIVUT 


ROPIPEPOPININIPENOPoNoPofofononofnonowponofnononond 


POPIPOPPININININIPYPONININIAINIPNPONININIPPPUNPoNononyd 


POPIPIPIPYININNIPINININSPUNPINININPININY 


oooonovuono 


=PONININ AWN & 


Sesser 


mm om OM OM OM OM 2m Om A OR OP EA Om 8 Om om OM OA OM Om OA OR me me ome 1 OM OM Oe me om oe 1 OR Om OM BM OM OM OM OM Ee 


»PSECT _SMGSDATA,NOEXE, PIC,2 
28 2B 2B 2B 7C 2B 7C 2B 2B 2b 2D 2B 7C 2D 20 00034 BORDER_TRANS: 
2B 00043 ASCII \ witenttieieetee\ : 


-PSECT _SMGSCODE,NOWRT, SHR, PIC,2 
OFFC 00000 -ENTRY SOCSEUT PAS TESOARD. Save R2,R3,R4,R5,R6,R7,~; 2115 


SE FDF4 MOV nBeeCsP SP : 
50 6¢ 05 eS 29909 CURBS #35 CAPS. DIFF ; 2202 


CMPB)OéOFF, #2 ; 
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SMGSSMINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum update calculatio b-5e -1984 00:54: AX-11 Bliss-32 V4.0-74 P 
rege SMGSPUT_PASTEBOARD = Output pasteboard via rout 7300-1382 99:39:88 SMGRTL. RCISMGMINUPD 69251 a9 353 
8 1 0 BLEQU 1$ ; 
50 000000006 ge 6 19 MOVL #SMG$_WRONUMARG, RO : 
50 04 BC 18 1$ MOVL § @PASTEBOARD_ID, RO + 2208 
11 1 1C BLSS  2$ . : . 
000000006 00 6 D} : i CPL RO, PBD_L_COUNT : 
08 000000006 E BBS RO, PBD_V_PB_AVAIL, 3$ : 
98 000000006 &F 60 F 2$ MOVL #SMG$_INVPAS-1D, RO : 
50 0000000060040 pd $ 3$ MOVL = PBD A-PaCBLROI, PBCB : 
0 eC 1 F CMPB sé “# + 2214 
1F 42 BLSSU 4$ : 
Oc AC D3 04 TSTL 12(AP) : 
04 12 00047 BNEQ © 5$ ; 
6E D4 9049 4$: CLRL  ACTION_PRM + 2215 
04 11 00048 BRB 6$ : 
6E 0c BC 00 Bees 5$: MOVL @P_PRM, ACTION_PRM 3; 2216 
04 eC 91 00051 6$: CMPB ss AB), 4 : 2222 
05 1F 00054 BLSSU 7$ : 
10 AC 05 0056 TSTL 16(AP) ; 
04 12 0005 BNEG : 
51 D4 0005B 7$: CLRL § ACTION_FF_FLAG t 2223 
04 11 0005D BRB 9$ : 
51 10 BC DO 0005F 8$ MOVL §@P_FF_FLAG, ACTION_FF_FLAG + 2226 
5b 08 AO D0 00063 9$ MOVL <PBCB) weB + 2230 
59 OOFO co 9 00067 MOVAB  240(PBCB), R9 + 2236 
69 95 0006C TSTL (RO) ; 
04 12 OO06E BNEQ  10$ : 
69 OC AE 9 9007 MOVAB  TEMP_BUF, (R9) > 2237 
04 AE 06 A6 BO 00074 10$:  MOVW 6(wcB) BUF DESC : 2263 
06 AE 010E 8F B80 00079 MOVW #270, BUF_DESC+2 + 2245 
08 AE 69 00 0007F MOVL  (R9), BUF-DESC+4 > 2246 
SA SF AO 9A 00083 MOVZBL 95(PBCB),~R10 s 2252 
57 1 CE 90087 MNEGL #1, ROW > 2290 
9 11 0008A BRB 15$ : 
50 06 Ag 3¢ 0008C 11$:  MOVZWL 6 (WCB), RO : 2258 
50 57 C4 90090 MULL2 ROW, RO : 
51 30 8 Ab C1 0009 ADDL3 8(WCB), RO, R1 ; 
58 0 C AB C1 00098 ADDL3 12(wcBs, RO, RB : 3259 
00 89 61 6 Ab 28 0009 MOVC3 6(WCB), (R15, a0(R9) : 2270 
53 06 Ad 3C GOA MOVZWL 6(WCB). R3 > 2278 
52 1 ce OA MNEGL #1, COL F 
1 AA BRB 14$ ; 
51 69 3 AC 12$:  ADDL3 COL, (R9), R1 > 2280 
CO BF 624 B BITS (COL)CR8], #192 + 2282 
17 13 0008 BEQL 14$ ; 
10 19 OB CMPB ss (1), #16 : 2284 
5 If BA BLEQU 13$ ; 
61 A ? BC MOVB he, (R1) > 2285 
1 0008F BRB 14 ; 
50 61 04 fF C1 13$:  EXTZV. #0, #4, (R1) RO > 2286 
$1 00000000'EF4 9 C6 MOVB BORDER TRANSCROJ, (R1) F 
DA 2 53 F CE 14$ AOBLSS R3, COC ; 3382 
bE pp D PUSHL ACTION PRM : 
08 AE F 000D PUSHAB BUF _DESC ; 
08 BC 02 FB 00007 CALLS #2, ~aP_RTN F 
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SMGSPUT_PASTEBOARD = Output pasteboard via rout 14-Sep-19 SMGRTL.SRCJSMGMINUPD.B52;1 (27) 
B 0 OD DB MOVL RO, STATU Fs 
Gg 55 eB DF BLBS STATUS, 3s ; 2291 
0 B E MOVL STATUS, RO : 
4 E4 RET : 
A3 37 A F 7 15$: AOBLSS R10, ROW, 118 3 
0 1 =D E MOVL #1, RO 3 $533 
04 OOOEC RET 3: 2297 


; Routine Size: 237 bytes, Routine Base: _SMGSCODE + 1235 


i COMPLETION STATUS: 


SS$_NORMAL Normal successful completion c 
SMGS_NOTRMSOUT (success) no action taken since output is 
not being controlled by RMS 
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sngte SMGSSNAPSHOT = Snapshot pasteboare Into a file 1 ~3007 138% 00: 3giee SMGRTL. AES shcm\noen 68251 . (28) 
3 4 3 1 ZSBTTL ‘SMGSSNAPSHOT - snapshot ppsteboard into a file’ : 
: 5 4 } GLOBAL ROUTINE SMGSSNAPSHOT ( PASTEBOARD_ID ) = ‘ 
; O6/ 1 | FUNCTIONAL DESCRIPTION: : 
: 069 : i If the output device is being controlled by RMS ; 
3 . (i.e. it is a file or unknown terminal) : 
: 4 > 34 then calling this routine causes a snapshot : 
3 if : , | of the current ppstescers to be taken and output ‘ 
3; 207 1% to the output file. . 
; Boe BS ! Pasteboard batching has no affect on this routine. : 
: 076 10 CALLING SEQUENCE: ; 
: 44 \ } ret_status.wlc.v = SMGSSNAPSHOT ( PASTEBOARD_ID.rl.r) : 
; 080 14 1 | FORMAL PARAMETERS: : 
: ee 1 ! PASTEBOARD_ID.rl.r pasteboard id 
> 2084 18 1°! IMPLICIT INPUTS: 
; 2085 19 1! 
; 2086 $9 1! contents of PBCB 
; 2087 H in 2 
3; 2088 ¢ 1 ! IMPLICIT OUTPUTS: 
; 2089 3 1! 
3 324 1! NONE 
3 +, ee 
: 3 § 1! 
; 3 1! 
3 328 1! 
3 36 1! 
; 330 1! 
; mi 
; 33 1! 
335 1 i 
; 336 1! 


So S 

ooo 

a 
POPIPOPIPONINPPOPONIPNoNoNoNongny 


96 
344 RMS$_xyz Errors from RMS 
099 i SIDE EFFECTS: 
100 : 
101 NONE 
102 -- 


+ 
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ingee" SMGSSNAPSHOT™= Snapshot pasteboard into a file 17-3¢5- Re 99:30:88 SNGRIL  SRETSMOMINUPD B92: 1 29 055 


‘ BEGIN 
EXTERNAL LITERAL 
SMG$_NOTRMSOUT; ' Not RMS output 
LOCAL 
STATUS, 
PBCB : REF SPBCB_DECL; 
SSMGSVALIDATE_ARGCOUNT(1,1); 


1+ 
Get the pasteboard control block from the pasteboard id. 


$SMGSGET_PBCB(.PASTEBOARD_ID,PBCB); 


1+ 
Do nothing if output is not being controlled by RMS. 


IF NOT .PBCBCPBCB_V_RMS) 
THEN RETURN SAGS_NOTRMSOUT; 


1+ 
Output this pasteboard using our special RMS output routine. 


STATUS=SMGS$PUT_PASTEBOARD( .PASTEBOARD_ID,RMS_RTN,PBCB) ; 


IF NOT .STATUS THEN RETURN .STATUS; 


PARA AAA AAMT BP PPLE EEE 


AME AN O OONAULSWN OO ODNOUSWN OOO 
NM OOODNAUNE WN O OONOU SEWN OCONOUS WN O 


ee ed ed ad od od wd 


BEA WIA NAIR 3 & 3 33 3 3-3 2OOO 
Soo~ ar 


Be Se Se Ge Ge Fe Se ee Se Fe Oe Se Se Se Se Se Se Se Se Oe ee SESH Se SE Se Se Se Se Ss ee Se Sets eee 


WWANA ANA 


6 
, RETURN SS$_NORMAL 
72 1 END; ! Routine SMGSSNAPSHOT 
.EXTRN SMG$_NOTRMSOUT 
0000 000 ENTRY SMGSSNAPSHOT, Save nothing ; 2299 

5E SUBL2 ; 
01 CMPB (AP), #1 ; 2348 
50 000000006 MOVL #SMG$_WRONUMARG, RO : 
50 04 1$: MOVL § @PASTEBOARD_ID, RO ; 2354 


000000006 00 
08 000000006 


CMPL RO, PBD_L_COUNT 


RO, PBD V_PB_AVAIL, 3$ 
28: MOVL  #SMGS_IRVPAS"ID, RO 


PBD APBCBLROI, PBCB 
Pace R 
C BBS #3, 208(RO), 4$ 


i 000000006 
$5 00000000600 
08 oop0 )=«—C¢ 


woe "Oowmonor "Boot 
moocououm—o—-Tc00 -onoe 
COO LOO f—$Oo Foo 
Sooooooooooooooo 

AX eae peat tte 
~o moe eae 

w 

tad 

sz bem >] 

m -om 

<—+ vc 

es “ 
Pete Se Ge Ge Ge Se Ge Ge Ge Se Ge Se Be Se 


oof wDwovreD WOCoO 


% 
| 
| 


FEBB CCF 
3 
0 


; Routine Size: 95 bytes, Routine Base: 


ShRS RAIN IRUA_UP SMGSSMINIMUM_UPDATE = Minimum 
-045 SMGSSNAPSHOT = Snapshot pasteb 


50 000000006 


seeattotatett 


2 
: 
i 
‘ 


-SMGSCODE + 1322 


2 18:59:88 


SP 
RMS_RTN 

PASTEBOARD 
#3, SMGSPU 
STATUS, 5$ 


AX-11 Bliss-32 V4.0- 
SMGRTL.SRCJSMGMINUPD 


#SMG$_NOTRMSOUT, RO 
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(29) 
2361 
2367 


3390 
$379 


H 13 
SARS SAINIRUR_UP sncseeiniis UPDATE = Minimum update calculatio 13-88-1382 90: 34:38 AX-1 


iss-32 V4.0-74 Pa 0 
ATTRIBUTES. ON “ 3SHGM $251 oe 58° 


1 BL 
SMGRTL.SRCJSMGMINUPD.B 


> 2141 if 1 ZSBTTL ‘SMGSSSET ATTRIBUTES ON’ ; 
; 196 4 1 GLOBAL ROUTINE SMGSSSET_ ATTRIBUTES ON ( : 
3 214 75 1 PBCB : REF S$PBCB_DECL, ‘ 
3 2144 76 «(1 FLAGS : BITVECTOR : 
> 2145 77 4 d= : 
; 148 78 1 44 : 
3 Vet OB : ; FUNCTIONAL DESCRIPTION: : 
> 2149 os) 3 This routine generates the escape sequences turning on : 
3 129 8 ! attributes such as bolding and blinking. : 
; i és ! ; CALLING SEQUENCE: : 
3 2154 § 1} ret_status.wlc.v = SMGSSSET_ATTRIBUTES_ON (PBCB ; 
> 2155 er ii FLAGS.rl.v) ; 
; 2156 : 33 : 
; 2157 89 1 ! FORMAL PARAMETERS: : 
: 2158 70 1 3 : 
3 2159 71 1} PBCB : 
3 199 3¢ 1 FLAGS.rl.v flags specifying which attributes to turn on : 
; 3163 94 1! IMPLICIT INPUTS: : 
; 216 ms Fe : 
3 2164 38 1; NONE : 
; 2165 oy 1} : 
3 2166 98 1 ! IMPLICIT OUTPUTS: . 
; 2167 wy 1! : 
; 2168 400 1! NONE : 
; 2169 401 1! : 
; 2170 402 1 ! COMPLETION STATUS: : 
3; 2171 403 1! : 
; ve 404 1! : 
3 217 405 1 ! SIDE EFFECTS: : 
3 2174 406 1! ; 
; 2175 407 1! NONE ° 
; 2176 2408 1 !-- : 


SMGSSMINIMUM_UP SMGSSMINIMUM_UPDATE - A ss orisasans update calculatio 14.33 $ep-1984 8 AX-11 Page 81 

pngeen ~" SMGS$SET_ATTRIBUTES_O . 12-Sep-1984 90:39 :38 SMGRT i° tS a te B32;1 ° (39) 

: 2178 409 2 BEGIN : 
3; 2179 41 ; 
3 : » r} LOCAL ; 
: ’ 413 STATUS; : 
+ 2184 415 2 BIND  TT2 = PBCBCPBCB_L_DEVDEPEND2] =: $BBLOCK; ; 
: 58s ‘8 8, : 
: 187 418 i Renditions requires that the AVO (ADVANCED VIDEO) terminal : 
: 2188 41 i characteristic bit be set. Even TERMTAB Sti E entries : 
; 2189 420 i show that the terninal has the BEGING tROLD” gapad lity, : 
3 130 : ; & the terminal might not have the advanced v {deo option. ‘ 
: 19 4 ; $ 
; 198 424 Hear iste V_REND_GRAPHIC] 3 
; 19% 4 5 AND TT2$9_AVO] OR NOT .TT2CTT2$V_ANSICRT]) ; 
: 3196 4 ? SSNGSGET_TERM_DATA(BEGIN_LINE_DRAWING_ CHAR) ; : 
: 2198 429 IF .PBCBCPBCB_L_CAP_LENGTH] NEQ 0 ; 
: 2199 430 4 THEN N7 
3 2200 431 4 STATUS=SMG$S$OUTPUT(. -PBCB, .Pecerrece.t L_CAP_LENGTH] : 
; 2201 4 é 4 A~CAP“BUFFERJ); : 
; 208 433 4 IF NOT .STATUS THEN RETURN .STATUS ; 
; 220 434 END; ; 
3 soe 435 END; : 
: 6 439 14 : 
; 3207 rt j Set and output the string to set the correct attributes. : 
: 2209 440 : 
; 3210 441 IF .FLAGSCATTR_V_REND_ BOLD) : 
: si] 226 AND" (112 é etTresy AVO)] OR NOT .TT2CTT2$V_ANSICRT)) 
: 238 Aad SSMGSGET _TERM_DATA(BEGIN_BOLD) ; 
; $ 15 44 IF .PBCBCPBCB_L_CAP_LENGTH] NEQ 0 
+ 2216 447 & THEN BEGIN™ 
> 2217 448 4 STATUS=SMG$SOUTPUT(. -PBCB, .PBCBEPBCB L L_CAP_LENGTH] 

; 2218 449 4 BCPBCB-A_CAP~BUFFERJ); 

> 2219 450 4 IF NOT .STATUS THEN RETURN .STATUS; 

: 2220 451 END; 
3 2 126 END; 
; 454 1 “FLAG ATTR_V_REND_BLINK] 
3 8 rt “raettes0 AVVO) OR NOT .TT2CTT2$V_ANSICRT)) 

: 6 43 SENGSGET _TERM_DATA(BEGIN BLINK); 

+ 2228 435 IF .PBCBCPBCB_L_CAP_LENGTH] NEQ 0 

> 2229 460 4 THEN BEGIN™ 

3 2230 461 4 STATUS=SMGSSOUTPUT(. -PBCB, .PBCBEPBCB_ L_CAP LENGTH} 

> 2231 46¢ 4 PBCBLPBCB_A_CAP~BUFFERJ); 

; é 463 4 IF NOT .STATUS THEN RETURN .STATUS;~ 

; 464 ; END; 

: 465 END; 


SMGSSMINIMUM_UP Nt blag M_UPDATE = Minimum update calculatio 18-50 Sep-1984 8 AX-11 Bliss-32 V4.0-74 e 
sneer MGSSSET ATTRIBUTES, ON . 35p-18he PRi8g8e FRSA ObteS spe VE Os 788. age 48 
; 5 166 
; $ 4 IF ~FLAGSEATIR V_REND_REV] 
; { 46 AND Co TTZtTT 280. RvO] OR NOT .TT2CTT2$V_ANSICRTI) 
; 2? cf SSMGSGET_TERM_DATA(BEGIN_REVERSE); 
> 2241 are IF_.PBCBCPBCB_L_CAP_LENGTH] NEQ 0 
: 4g 473 4 THEN IN™ 
> 224 474 & STATUS=SMGSSOUTPUT(. PBCB, . PBCB PBCB_L_CAP_LENGTH] 
> 2266 475 & PBCBLPBCB-A_CAP~BUFFERJ); 
; ie 476 4 IF NOT .STATUS THEN RETURN .STATUS;~ 
: 224 47 END; 
3; 2248 rit 
+ 2249 480 2 IF FLAGS ATTR_V_REND_UNDER] 
; 20 481 AND (oTrZcTT es, RvO] OR NOT .TT2CTT2$V_ANSICRTI) 
: 2¢ ass SSMGSGET_TERM_DATA(BEGIN_UNDERSCORE) ; 
: 2254 485 IF_.PBCBCPBCB_L_CAP_LENGTH] NEQ 0 
> 2255 486 4 THEN BEGIN™ 
3 2256 487 4 STATUS=SMGSSOUTPUT(.PBCB, .PBCBCPBCB_L_CAP_LENGTH] 
; 3 57 488 4 PBCBLPBCB_A_CAP-BUFFERIJS; 
; 338 489 4 IF NOT .STATUS THEN RETURN .STATUS; 
; 2259 490 END; 
5 5500 491 END; 
; 361 49@ 
i 6¢ 49 RETURN SS$_NORMAL 
; 226 494 ; 
; 2264 495 1 END; ! End of routine SMG$$SET_ATTRIBUTES_ON 
OOFC 00000 .ENTRY SMGSSSET_ ATTRIBUTES_ON, Save R2,R3,R4.R5.- ; 2274 
57 Q000v CF 9E 9002 MOVAB SMGS$SOUTPUT, R7 : 
56 000000006 00 9€ 0000 MOV SMGSGET_TERM_DATA, R6 ; 
3E 10 ¢ O00E SUBL2 #16, SP™ : 
04 AC DO 0001 MOVL  PBCB, R2 t 2415 
54 60 A2 9E 00015 MOVAB 96(R2), R4 ; 
4F 08 AC 04 €1 00019 BBC #4. FLAGS, 4$ ; 2434 
04 64 18 EO 1 BBS #27, (R&). 1$ > 2425 
47 03 A 3 BLBS (rd), 4 ; 
53 0108 cg 0026 1$: MOVAB 64 (RS), : 2427 
OOF C p B TSTL 2(R ; 
4 f BNEQ 6 ; 
; 4 1 CLRL = (R3) : 
1 3 BRB 3$ ; 
4 AE D4 2$: CLRL —s INPUT_ARGS ; 
4 AE OF 8 PUSHAB INPUTS ARGS : 
0104 ¢ DD B PUSHL 0(R2) ; 
D F PUSHL R ; 
9100 ¢ F 00041 PUSHAB 256(R2) : 
10 AE 18 F 3C 00045 MOVZWL #446, 16(SP) ; 
1 AE 9F 00048 PUSHAB 16(SP) F 
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Y 1 Blis ¢ 
SNGRTL. SRCISMGMINUPD .B 231 


AX=1 


ep 1986 19:09:54 


3 


16-5 
° 1033 


.UN 


SMINIMUM_UP SMGSSMINIMUM UPDATE = Minimum update calculati 
SMGSSSET_ATTRIBUTES 


5 


nS 


oa Mew wT oOo oo ovrwn fF o 
™N mvs Tr + vTrwvws wwe ww w 
wz ww vw wwa wT Tr wy ww JT wT 
Nm cCuT mcm ot N oN wom Tw ~N 
et oe oe oe oe ee oe ee ee et ee et oe et et eer el ee ee aT eee ee ee ee ere ere ere eT eter er et eT ee) ee ee) ee ee a ee ee et 
oe < << 
Load - b 
x <= -¢ 
a a a 
t ' ‘ 
= = = 
« _ i. 4 md a 
uw — ua — ) AA us 
Co a co - a oe - 
4 _ wn ~ 2 — -— ~ i 
_ = ~ a —A => # ~ a — A 
WA OMRAA Wa mown ” wey OWwW + wa “nw ” Wor 
or ADOO-—O oo 7 o- ADM Oo ov ~ Oe 
ca) AK ews + ca oOo a Ae Ove « ca eo Sad 
aw .s ~ wes fF AAN qian Ae 6 UO ~ wd «tec Aan qaqn Ae Of 
N=w ~N zen ww uC t(iNn NY ANEw MN =zenouw~S suc (Nn NY ANWEO 
ena < ™YMWDY ca Kee & OAeMS a YANnSDe ce ec & AES 
-—- er Yen KWo narewew 2 DTD~Y YMOwN eR OS a wee eS D7 wY OO YNOwN Oe 
N <M OM * -<taraowwu MM AAO Oren *mMwom ssf ETVEMOOAOAO Owen aoe 
MNO FMOZOUMOH LV OMNES ZH ZZOMMN~T OMO ZLOVWO SOMO RK NH OMNES ZZOMMN~T OMOr Zo 
NRZMNYS INH ££ BEM. BMUU OY OS SVU EVNBEK—VNBZMNY RK VW CBE MN®BBMVUN eH I EVR Va Ow — 
oo —_ 
ZIvVvIITETev V“Vetsags JITTIInNnITETsgeoygsrtrIrtywe M<iOG8 JjTTIInTTtosewjw 
MIO GBMNYH SBPOOKO [WT ODEMMNNYKN2>YHOH NO GVH BPO O SRK wEoarZvnnvn>Huw IwwO+-4a 
>< IMwD D340 YD JOM 2 UE DDD DODFD es fie ee ent tt + +t tat tet tot ee ee tee fe 4 
Avr O000 VE OOOOZ+OrOwOA4C420000-MA0AAYFOOOOE-OMVIOvr0A00040F200080+D 
o oe ee oe oe of oe: 9 cons ae 3 
on coed of A AA AO - ~N mT 
Lal wT wm Oo oO aon - - -—— 
WIOANC £ VOTER £ORK MNO wry OM be PRP eS Rt tet pete 690 2 eet 
TMOMMTNOOOO0OOrfr-r-r MODOPOOS ffi tC OODOMDOVVVV COCO COWWWWwe wee O 
SOOOCOOSOOOSOSOOSOOSOOOOSOSSSOSOSOSOSSOOSOOSOSO OOOO OOOOOOOOOOOOOOOOOOOOOO— 
ODOQQOQOOOGOOOOOOOCOCSCOSSOSSS POO COOSCOSOSOSOSOOOSOOOSOOOSOOOOOSOOSOOOOSOOSOSoO 


CoS CCOOOOOOOOOOOOOOSS8G F BOOOOCOCOCOOSOSOOOSOSOOOSOSOOOSOOOOOOOOOOOOOO 
& OOVWMODSODOS OOO WMNNT HT OO VEY DOOMMOAOODOC K-OCOWMVTeR Te OO VEL OOUWM 
Ouwor- OOO OWWWWC O- Or BAO OOMOO UWA COB. OQWWWWO Oe Oe OP CBOOMOOuWO 


NODE OPINION 2 DF OOTY ILI CIPI &. LIEU OOP CUM CIM DF NCU PIP LUCIO & WU OOM 
VOWNO— VOMOUWN <= ZOVVOVON EF LON VD I VOM DO — OOMOMMNO — ZLOVOON EC LUM VD ELVOM Oe 


vw wv @o Maw T-v—Tr OMOw wv Maw w-vaTr Oo<cow 
u oOo Co oou ooo OO-u So oou. ooo OO-u 
oOo - -Oo - --—- Oo _— -oO - --—- Oo 
Oo Oo oo o oo oO Oo oo o oo o& 
woo enous w on RN oOrrkm w o- 
own WINTON < own wn zovwn < ow 
Oo 
- 
wv 
oOo 


~ Ne o NU WS oO Lf) w ~ 
(a"S 2) ae @ SBE 2 2s 
wT wT 
Pd favre) crm Nn om wem Nm ON 
| ao A ed et ee ee ee ee ee ee ee ee ee ee ee ee ee oe ee ee ee et ee et et ee eee eee aera er er eral er er er et ee ee ee ee ee ee ee 
| i) 
| a 
= | 
*. 
™N | 
ve 
w@ 
™m « 
‘a 
oa. | 
> j 
wa 
>= 
NO < = 
m= = _ 
mw < << 
wo a a 
nu z ' 
—a = = 
~P _ a -_ [<4 _ 
@s- = ] AA wa > PAA ui > 
_) a ar - a ~e _- a 
ee — Ne ~ t _ on ~ 4 _ 
—-a > w&* ~m a -—A > &* ~ a -—A 
‘oo OoWn = Wa mw ” woo OoOMwo + wma nn ” wicd on 
<= AINA ow ~ wom ADNYOAFK uw ~ or Ao 
«um AK OT «+ ce o A Ae Owe « ca Oo A Ar 
ou wood ae Aan <qqanw ae 6 Of ~ Od «<oe Aan qaQn~n ASE AO ~ wd 
N zewu~ cue tw Nw ANEO ~N Zevnu~S «sue (in NY ANEw N ze 
fo nN>De Ca KK—oe &¢ AeYD a NNDue Ace eee & MAES ax own 
~~ tee wew S3D~- YVR Ow oo wee OF S75D~Y/ ~OUwN FR we 
om se Le STVOMOMAAO Oren -mMwoOomM se LSTVMMMOAOAO Owen -mMwOoOM belied 
Ot OSWUMOE K— WY OMOTO ZZOMM TOMO SVO SUMO Re MY OMT BN ZZOMWN TOMO ZR OEOMO 
WA VK SBI M®B VMOU RK SVS SEV VB MY NUINY FBI MB BMV YS NS SVEN VRS UY Zea 
AS - - 
oer ID 2 2.2322. Jjau4ui4uWwn 2 9.93293. aj JIW? 
om Trt ijijv MIG JTTEITINITTsgeydgITtIrTt wv M<iIG4 JTITIInvITtsgenssrtrtrtow 
SO— WMH I2>00U0 SWE OTM 1H 21H UO BNO USO Pe wWwTZODLMMNHv S>wwW UO-Gunwnu> 
eter ty + fy tat ty Oe ee eet te eee ttt tt te oe eee e tee a tee er 
TTF 280042 MOOOOZ+OYOwWOA000200080+--@OA0AAVEFOOMDOOE-DMIOvVOA4400F2004000rMA00VWF 
oon 
or 
mm) 
aa - owe ae 
moe AM ad A AA SOD ea are Sad 
nm mo ~ co oo —™N | 4) wT w 
te -— - _ —™m we N ™N N 
SK OO OWRK TO O- OF VWOMO ZL VO OS OOM DOKUNUMNDO-— MN fe WOW Ter «< S$8=2 sesame 
SOOO De ee III CUI AMIE oF So PERUANO OO DI oad an e0 eo OOO eect ccc oom 
o SS OOOO 
- OOOQGQOOOOOOOOCOOOCOSOOOOOSOOCOOSOSOOOOSOSOSOSOCOOOCOOOOOOOOOOOOOOOOOOOOOOO 
4 SOOoSOCOCOOOOCOOOOOCOOCOOOOOCCOCOCOCOOOOoOoOO 
— 2OOD0C — COUNT eT OO VE DOMM OO ODOC -QCOWMNVT Re Tue OO Ve DOUMOOCODCO 
a 20604 Owwww O-— O-— OF OOSOMOO uw WO OO Oe OWWWWO DB Om OA OOOMOOuWO-OO8u oO 
we 
—_ 
@ RPA DPAVODN ee TF OOS SP I CIPI ON. LUI CU OOP CIPI CIPI O99 ODF OO ST PD CUP &. WCU OOM UNACUIPMICIMNO 
ve VLOWMOUWMNO LYVVOON EF EON VD LVOMNO — VOMOUMNO — LO VOON Ef LOM VD LVOMNO- VOMOW 
7) 
pe) 
«© wT Maw vTrvwvTr OuOw w Maw wwe OOOW w 
wo So oouw ooo O@-—u o oou ooo OveEruw So 
a - -O - -—- O&O - -oO - -- O&O - 
| oOo oo o oo Oo Oo oo o oo oo oOo 
e€ 
- 
c RNR OTkMm w i=) wRaroyronm Ww wv ew 
= wom fovwn 4 or wn town <= on own 
z 
'o 
i co Oo co So 
wn Oo - o - 
ew 
<= 
aa 
aw 
a 
x= 
ze 
oa vex mvs 
< wo wo 
—_ 8 
ze 
mt 
zn” 
AA 
AM 
ovo 
z= 
mn 
a 
> 
t 
> 
— 
2 
a 


SMGS 
1-04 


SAGSRAINIMUR. uP sneee aN 


3; Routine Size: 


a — 


452 bytes, 


IMUM 


3‘ 


30 


50 


Routine Base: 


Minimum update calculatio 16- cca 90: 33: 28 


Bap 


01 00 


-SMGSCODE + 1381 


sReising mann NOPD. 7382; 31 


—-n 
x 


a 
~~ 


om om ome me Ome Oe Oe Ome ee ee ee oe me ee me Em ee 


a 


a 
© 
. 
° 
. 
e 
. 
° 
7 
° 
o 
° 
. 
° 
. 
° 
. 
o 
. 
° 
. 
° 
. 
e 
> 
e 
” 
° 
. 
° 
. 
° 
. 
° 
. 
° 
* 
° 
. 
° 
. 
° 
© 
° 
° 
7 
° 
. 
° 
a 
° 
. 
° 
° 
a 
° 
. 
° 
. 
° 
. 
° 
o 
° 
. 
° 
7 
7 
° 


moronroronror 


POPORPSPINIPoNoNoNoNonononononyd 


MIMrToron 


moron 
CLSSVLOV PMO AINA IIIS SSS 
~N 


—OOONOUSWN—OO0W 


oouooowowon 


MEWN OO ONOULS WOOO 


4 


POPIPONPIPINIPNIPONINONYIPNINPOPUPoNoNNnoNyD 


PUPVPV SUSU SPSS ES SS 


3 BQOOOODOOOOOOOO 


AMO ODNAU EWN OOD NAUE WN HOO ONOU EWR 


POPOPEPoNoNoNoNoNonononononofnyd 
MAMMA 
WIWNRIPONINOPoNononon9n 


a a ee ee ee a ed ad dd ed od od dd 


N 13 
IMUM_UPDATE = Minimum update calculatio 16-Sep-1984 00:54: AX-11 Bliss-32 V4.0-74 Page 
TATTRIBUTES. OFF a : 12=800-}38e 99:35:88 — FAKGAT Skies cee VN oo 7ee oe 588 
ZSBTTL "SMGSSSET ATIReuTES OFF 
GLOBAL ROUTINE SAGSSSET_ATTRIBUTES OFF ( 
PBCB : REF $PBCB_DECL, 
FLAGS : BITVECTOR 


)s 
++ 
FUNCTIONAL DESCRIPTION: 


This routine generates the escape Spqeenees turning on 
attributes such as bolding and blinking. 


CALLING SEQUENCE: 


ret_status.wlc.v = SMGSSSET_ATTRIBUTES_OFF (PBCB, 
FLAGS.rl.v) 


FORMAL PARAMETERS: 


1 

; 

i 

i 

i 

i 

i 

i 

; 

1 

i 

i 

i 

i PBCB 

1 FLAGS.rl.v flags specifying which attributes ¢o turn on 
IMPLICIT INPUTS: 

NONE 

IMPLICIT OUTPUTS: 

NONE 

| COMPLETION STATUS: 

i 
i 
i 
! 
* 


SIDE EFFECTS: 
NONE 
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iu MUM_UPDATE = pinion update calculatio 18- $00-1984 90:34:28 AX-11 


ATTRIBUTES_O 14-Sep-1984 
BEGIN 
LOCAL 
STATUS; 


BIND TT2 = PBCBCPBCB_L_DEVDEPEND2] : SBBLOCK; 


14 

i Renditions requires that the AVO (ADVANCED_VIDEO) terminal 
i characteristic bit be set. Even if the T TERATABLE syneriee 
' show that the arataet has the BEGIN_BOLD gapans’ ity, 

x the terminal might not have the advanced video option. 


14 

i Get and output the suffix »inee to reset attributes to normal. 
i We used to assume that END BOLD brings back normal attributes. 
_Now we rely on BEGIN_NORMAC_RENDITIO 


iF adracr 2s AVO] OR NOT .TT2CTT2$V_ANSICRT 
X1F_ XDECLARED( SMGSK_BEGIN NORMAL RENDITION ) 
SSMGSGET_TERM_DATA(BEGIN_NORMAL_RENDITION) ; 
SSMGSGET_TERM_DATA(END_BOLD); 


XELSE 

FI 

IF .PBCBCPBCB_L_CAP_LENGTH] NEQ 0 
THEN N 


STATUS=SMGSSOUTPUT (.PBCB, . PBCBCPBCB.L_CAP_LENGTH] 
.PBCBLPBCB-A_CAP—BUFFERJ); 
IF NOT .STATUS THEN RETURN .STATUS; 

END; 7 
RETURN SS$_NORMAL 
END; 
000¢ 000 .ENTRY SMGSSSET_ 
5 10 C2 0000 SUBL2 #16, SP ~ 
5 06 Ac D MOVL  PBCB, R2 
04 63 A 03 € BBS ‘3 39(R2 
4A 6 A f BLBS ©: 99 (2), 4 
53 108 ~=«¢ 1$ MOVAB G4 (R 5, 
OFC f p 1 TSTL 2(R2) 
1B BNEG $ 
$ D 1D CLRL =. (3) 
11 OO001F BRB 3$ 


$cae Youre at 
SMGRTL.SRCJSMGMINUPD.B352; 1 


yee a fase at 
SMGRTL.SRCJSMGMINUPD.B52; 1 


8 
4 


Sepn1986 13:09:5 
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Routine Base: _SMGSCODE + 1545 


96 bytes, 


; Routine Size: 


D 14 
SMGSSMINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum update calculatio 16-Sep-1984 00:54: AX-11 Bliss-32 V4.0-74 Page 89 
1-045 “— RMS_RIN = So¥lon routine used to output a line 1 7300138 9 39:88 SMGRTL.SRCISMGMINUPD .B 231 ° (34) 
3 rk te 1 XSBITL_"RMS_RTN = Action routine used to output a Line with RMS’ 
; of f ! ROUTINE RMS_RTN ( P_LINE_DESC, P_PBCB ) = 
: 49 t | FUNCTIONAL DESCRIPTION: 
; i 23 | Outputs a Line to the output file using RMS. 
: 38 $81 i CALLING SEQUENCE: 
3 $27 388 1 ! ret_status.wlc.v = RMS_RTN ( P_LINE_DESC.rt.ds, P_PBCB.rab.r) 
: $34 285 | FORMAL PARAMETERS: 
: 59 289 1 i P_LINE_DESC.rt.ds Address of fixed penges string descriptor 
: 5300 one ! for Line to be output. 
: 5305 209 : | P_PBCB.rab.r Address of pasteboard control block 
i $3ee 592 1 i IMPLICIT INPUTS: 
; 2365 593 1! 
3; 2366 594 1! contents of PBCB 
3 $367 2595 1! 
; 2368 $298 1 ! IMPLICIT OUTPUTS: 
: 2369 597 1! 
: 2370 $298 1! NONE 
; gee) 599 1! 
; Ha 2600 1 ! COMPLETION STATUS: 
: 237 2601 1! 
3: 2374 $008 13 RMS$_NORMAL Normal successful completion 
3; 2375 2603 1! RMS$_xyz Errors from RMS 
: 2376 sone 1! 
3 2377 605 1 ! SIDE EFFECTS: 
: 2378 sO08 1! 
3; 2379 607 1! NONE 
3; 2380 2608 1 !-- 
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1-045 ~ 
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; Routine Size: 


14 
SMGSSMINIMUM_UPDATE = Minimum update calculatio ihese -1984 754:58 AX-11 Blis 
RMS_RIN = Action routine used to output a Line 102808-1 $82 99:35:88 SMGRTL SRei 
609 BEGIN 
611 BIND 
18 LINE_DESC = .P_LINE_DESC BLOCKC8, BYTE], 
614 PBCB = iP PBC $PBCB_DECL, 
613 SMGRAB = .PBCBCPBCB_A_RAB $RAB_BECL; 
e195 te 
218 ' Output this Line using RMS. 
600 5° 
601 SNGRABERABSU_RS/ = LINE DESCEDSCSW_LENGTH] 
6 é SMGRABLRABSL _RBF = .LINE-DESCCDSC$A-POINTER); 
6 4 RETURN $PUT(RAB=SMGRAB) 
626 1 END; ! Routine RMS_RIN 
.EXTRN SYSS$PUT 
0000 00000 RMS_RTN:.WORD Save nothing 
51 04 AC dO 00002 MOVL P_LINE_DESC, R1 
50 08 AC dO 00006 MOVL P-PBCB, RO 
50 OOEC CO DO O000A MOVL  236(ROS, RO 
32 AO 61 BO 0000F MOVW (R1), 34(RO) 
8 AO 04 Al D0 00013 MOVL  4(R15, 40(RO) 
50 DD 00018 PUSHL RO 
000000006 00 01 FB OOO1A CALLS #1, SYS$PUT 
04 00021 RET 
34 bytes, Routine Base: _SMGSCODE + 15A5 
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ShEPSAINIRUR UP SMGSSMINIMUM_UPDATE = Minimum update calculatio Jo~gen= 1386 90: 33:39 AX-11 A Pe tase a8 Page 91 
1-045 SMGSSMIN_UPD = Calculate minimum update sequenc 14-Sep-1984 15:09: SMGRTL.SRCJSMGMINUPD.B52;1 (36) 


$$M1 
: 2401 627 1 XSBTTL 'SMGSS$MIN_UPD = Calculate minimum update sequence and output’ ; 
; rh 6 8 1 GLOBAL ROUTINE SMGSSMIN_UPD ( ; 
; 240 6 1 PBCB : REF S$PBCB_DECL : 
; 2404 6350 3 d= ; 
; 2405 631 1 !+4+ ; 
: 2406 6 § 1 ! FUNCTIONAL DESCRIPTION: ; 
:; 2407 6 1! : 
; 2408 634 1! Obsolete. ; 
3; 2409 635 1! SMGSSOUTPUT_PASTEBOARD should be called instead. : 
; 2410 6 $ 3 If this or that bombs out, you can use the old original temporary 3 
: ree : routine that Rich wrote. It's called SMGSSOLD_MIN_UPD. : 
; a1 639 1 ! CALLING SEQUENCE: : 
> 2414 640 1! : 
; selz veh : ret_status.wlc.v = SMGS$MIN_UPD ( PBCB.rab.r ) : 
: sai g08 1 ! FORMAL PARAMETERS: ; 
; seis 644 1! : 
3 2419 645 1! PBCB.rab.r Address of pasteboard control block. : 
; 2420 646 1! 3 
: st 1 2647 1°! IMPLICIT INPUTS: : 
: 24 ¢ 648 1! ; 
; st 649 1! NONE ; 
; 2424 650 1! ‘ 
3; 2425 651 1°! IMPLICIT OUTPUTS: : 
; 2426 $026 is ; 
3 2427 oo 1 ft NONE ‘ 
3: 2428 654 1! ; 
3 2429 655 1 ! COMPLETION STATUS: : 
; 2430 656 1! ; 
; 2431 oor 1 i SS$_NORMAL Normal successful completion : 
3 rh 2658 1! : 
: 243 659 1 ! SIDE EFFECTS: : 
: te 660 1! : 
: 2435 661 1! NONE : 
: 2436 662 1 !-- : 


14 

SMGSSMINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum update calculatio 18-36 1984 00:54: AX-11 Bliss-32 V4.0-74 Page 92 

gee" SNGSSMIN-UPD~> Calculate minimum apdate Sequence 12ese5-19R6 $9209.52 — FAMGRTL’SRETSREMYNUSD -BS2;1 9° 37) 

: 2438 663 BEGIN 3 
: 24 8 068 LOCAL : 
3 tet 99? WCB : REF $WCB_DECL; ! Address of Window Control Block. : 
: 2446 $6) WCB = .PBCB CPBCB_A_wCB); ‘ 
> 264 668 IF .PBCB CPBCB_W_CAST_CHANGED_ROW] NEQ 0 ; 
3: 2444 98 THEN ; 
: 2445 670 BEGIN ! Normal case : 
; rr 671 LOCAL 3 
3 244 or6 LC : REF VECTOR C,BYTEJ, ! Addr of Line characteristics : 
: 2448 67 ! vector for text buffer. 3 
: 2449 674 LCS : REF VECTOR C,BYTE), ! Addr of Line characteristics ; 
: 2450 675 ! vector for screen text buffer. $ 
: 2451 078 B_OFFSET, ' Byte offset to begining of Line of interest ; 
: $28 244 WIDTH; ! Extracted copy of .WCB CWCB_W_NO_COLS : 
3 2454 679 WIDTH = .WCB CWCB_W_NO COLS]; ‘ 
> 2455 680 B_OFFSET = (.PBCB-CPBCB_W_FIRST_CHANGED_ROW] - 1) * .WIDTH; ; 
: 2456 681 LC = .wCB pUCB_A_LIN CHARI; F 
: 2457 68 LCS = .WwCB CWCB_A_SCR_CINE_CHARI; 5 
; 2458 68 : 
3: 2459 684 eo 3 
; 2460 685 ! Try to narrow the range of Lines that claim to have been changed. : 
3 $783 686 ! If we can collapse it to 1 or less, scrolling is not feasible. : 
3; 246 687 ! As a by-product of doing these tests, the range of lines that : 
3 246 688 ! may have changed will possibly be narrowed, making minimum é 
> 2464 689 ' update’s work faster. $ 
: ree 22 First try to refine the ‘first changed Line’’ downwards. : 
: 2467 69 WHILE .PBCB peace .wF inst CHANGED_ROW] LSS : 
: 2468 69 ; -PBCB CPBCB_W_LAST_CHANGED_Row] F 
3: 2469 694 dO ‘ 
: 2470 695 4 BEGIN ! Collapsing loop : 
3: 2471 696 4 + : 
3 247 697 4 ! If this Line is the same, with respect to the text buffer, 3 
3; 247 2698 4 ' the attribute buffer, and the Line characteristics vector, $ 
3 2474 2699 4 ' then it is not changed -- drag down the first changed Line by : 
3 2475 700 4 g® ‘ 
3: 2476 701 4 le 3 
3 2477 702 4 IF CHSEQL ( .WIDTH, .WCB CWCB_A_TEXT BUF] + .B_OFFSET : 
> 267. 703 4 “WIDTH, .WCB CWCBTATSCR_TEXT_BUF] + .BTOFFSETS 3 
3: 247 704 4 3 
; 2480 705 4 AND ; 
3: 2481 £36 4 3 
3 24 7 4 CHSEQL ( .WIDTH, .WCB FuCB ALATER BUF J -B_OF FSET : 
> 248 708 4 “WIDTH, .WCB CWCBTATSCR_ATTR_BUF) + .B-OFFSETS : 
> 2484 709 4 3 
3: 2485 710 4 AND : 
; 138 711 4 3 
3 2487 re 4 LC -PBCB Poca UF RST _ CHANGED ROM? } EQL 3 
3; 2488 713 4 -LCS C.PBCB CPBCB_W_FIRST_CHANGED_ROW : 
: 2489 714 4 3 
3; 2490 715 4 THEN : 
3 2491 rig BEGIN ! Advance one row : 
3 249 71 PBCB CPBCB_W_FIRST_CHANGED_ROW] = : 
3: 249 re -PBCB CPBCB_W_FIRST_CHANGED_ROW] + 1; 3 
3 2494 71 B_OFFSET = .B_OFFSET + .WIDTH; 3 


! It is possible, in some obscure cases, to reach here with the 

! the Ist changed row set to #rows+! and last changed row set to 0. 
In this case, set range to whole pasteboard. 

PBCB CPBCB_W_FIRST_CHANGED_ROW]) = 1; 

PBCB CPBCB-W"LAST_CHANGED_ROW) = .WCB CWCB_W_NO_ROWS); 

END; T Range not set case 


H 14 
SMGSSMINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum update calculatio 16-Sep-1984 00:54:58 AX=11 Bliss-32 V4.0-74 Page 93 
1-045 SMGSSMIN_UPD = Calculate aininun update sequenc 12286871382 99:59:88 SHGRTL.SRCISMGMINUPD .B 231 ' (37) 

96 i 9 : END ! Advance one row ; 
97 7 ¢ 4 EXITLOOP; ! Ist refined downward as far as possible : 
98 7 END; : Collapsing loop ; 
99 724 : 
00 725 + : 
3! 4 § ; Now try to refine “last changed Line’ upward in a similar manner. : 
08 f 3 B_OFFSET = (.PBCB CPBCB_W_LAST_CHANGED_ROW] - 1 ) * .WIDTH; : 
05 730 WHILE .PBCB prece wor inst CHANGED _ROW] LSS : 
96 f : .PBCB CPBCB_W-LAST_CHANGED_ ROW] : 
08 7 4 BEGIN ! Collapsing loo : 
09 734 4 eee tg : 
10 735 4 '¢ F 
11 7 $ 4 ! If this Line is the same, with respect to the text buffer, ; 
\g 7 4 ! the attribute buffer, and the Line characteristics vector, ; 
\ 4 3 ? } then it is not changed -- drag up the last changed Line by 1. ; 
15 740 4 IF CHSEQL ( .WIDTH, .WCB CWCB_A_TEXT_BUFJ + .B_OFFSET ; 
16 741 4 «WIDTH, .WCB CWCB-A_SCR_TEXT_BUF) + .BIOFFSETS ; 
17 6 4 : 
18 743 4 AND 3 
19 744 4 : 
20 745 4 CHSEQL ( .WIDTH, .WCB pure A p7re BUF J + .B_OFFSET : 
21 3746 4 .WIDTH, .WCB CWCB[A-SCR_ATTR_BUF] + .B~OFFSETS ; 
§ 747 4 : 

748 4 AND $ 
4 749 4 : 
5 750 4 Lt b-Pece PBCB_W_LAST_CHANGED_ROW] J EQL : 

26 751 4 .LCS C.PBCB CPBCB~W-LAST-CHANGED_-ROW] J ; 
27 si26 4 3 
8 she 4 : 
g 754 «5 BEGIN ! Back ue one row : 
0 $122 5 PBCB CPBCB_W_LAST_CHANGED_ROW] = : 
31 756 5 .PBCB-CPBCB_W_LAST_CHANGED_ROW] - 1; : 
3 lor 68 B_OFFSET = .B_OFFSET = .WIDTH; : 
7 £38 ? END ! Back up one row : 
35 760 4 EXITLOOP; ! Ist refined downward as far as possible 3 
36 761 END; ! Col Lapsing Loop ; 
37 ¢ END ! Normal case : 
3 ELSE : 

GEGIN ! Range not set case : 


'¢ 


e reach here 
een .PBCB [PBC 
B CPBCB_LAST_CHANGED_Fow 


i If terminal supports scrolling reg 
! by using 


BEGIN ! Terminal supports scrolling regions 
i Changed area must be at least 2 Lines high for scrolling to be 
useful. 


-PBCB 
-PBCB 


N 
BEGIN 


itimate 
NGED_ROW 


UPDATE = Minimum update calculatio 1 
- Calculate minimum update sequenc 1 


SSMGSGET_TERM_DATA(SET_SCROLL_REGION,1,2); 
if -POCOCPOCE_L_CAP_LENGTH) NEQ 0 


PBCB_W_LAST_CHANGED_ROW] - 
PBCB-W-FIRST_CHANGED_ROW) GEQ 1 


! Scrolling may be possible 


SMGSSCHECK_HDWR_SCROLL (.PBCB); 


END; 


END; 


08 B445 


! Scrolling may 
! Terminal is a 


Ss 
Ooo 
3 


DMN—*MWMOOM ANNO WYIM "OO 


M—DWwOFTOMOWwW-"- DW OWT 


ee mee mo fofoiefololololoiqe) 


SOOCoooooooooooo 


q'tigrences on the Lines 
and 


ions, check to see if minimal update can be helped 
hysical scrolling regions. 
Rung Actually, we could also do full screen scrolling if we wanted to. 


be ggen rete 
vT100 


SrgSSA IN UPO Save R2,R3,R4,R5,R6,R7,R8,R9,= 


LV W@ LFS CLVWWOL -———-"wOvSBD 
—ADOOS 00-48 INO-—O—— 
ao 
~VEOOZz uw ~Da~- 
- ~Wwame ~w n— 
_—~e es. ~ wo 
De 
on 
LJ 
“+ 
= 


DTH, @8(WCB)CB_OFFSETJ, a20(WCB)- 


Page 53 


; 2628 


; 2680 


SRE PATNI UP SMGSSMINIMUM_UPDATE = Mini j b-fe - - o 
sncre snort nimum update calculatio 16-Sep 1384 9: 63: 3f AX-11 oii 32 v4.0 Page 495 


MIN_UPD™= Calculate minimum update sequenc 14-Sep-1984 SMGRTL.S CISMGMINUPD. 5 2;1 
OF FSETI : H 
1B 1 4 BNEQ i : : 
18 B445 OC B445 Mi § Tires CMPC3 WIDTH 912 (WCB) CB_OFFSETI, @24(WCB)- : : 
11 12 00048 BNEQ _ : : 
6A48 6A49 4 O40 CMB "Yeti (R10) CLCSI : ; 
00 BE 5A a if 008% ADDW R10, a@0(SP) : ; 
5 7 £0 059 ADDL crore. 6_OFFSET : ; 
D2 09 C BRB : : 
50 32 OO0SE 28: CVTWL (R11), RO : : 
D 906 DECL 0 : : 
55 50 ‘ MULL3 WIDTH, RO, B_OFFSET : : 
SA 68 0067 3$: CVTWL 6 (R11), R16 : : 
5A 00 BE 81 0006A CMPW = @O(SPS, R10 : : 
C 18 O06 BGEQ 5$ : : 
14 B445 08 B445 7 29 000 CMPC3 WIDTH, @8(WCB)CB_OFFSET, @20(WCB)- : 3 
22 i 00078 BNEQ ge. : ; 
18 B445 OC B445 29 0007A CMPC3 WIDTH, @12(WCB)CB_OFFSET], @24(WCB)- : ; 
ete : : 
18 12 00082 BNEQ 5 ; : 
6A48 6A49 91 00084 CMPB ~=s-_-« (R10) CLCJ, (R10)CLCS) : ; 
11 if 00089 BNEQ 5$ : : 
68 SA 01 A3 00088 SUBW3 #1, R10, (R11) : : 
55 57 C2 O008F SUBL2 WIDTH, 6_OFFSET : 3 
bs 11 00092 RB 3$ : : 
00 BE 1 BO 00094 4$: MOVW #1, @0(SP) : ; 
6B 02 A4 BO 00098 MOVW  2(WCB), (R11) : : 
52 0108 6 i 0009C 5$: MOVAB g64 (RO, R2 : : 
OOFC ¢6 D5 OOOAI TSTL 52(R6) : : 
04 12 000A5 BNEG 68 ; : 
$2 D4 O00A7 CLRL = (R2) ; : 
: 11 000A9 BRB 7$ : : 
08 AE O¢ DO O00AB 6$: MOVL #2, INPUT_ARGS : ; 
OC AE DO OOOAF MOVL a. INPUT—ARGS+4 : : 
10 AE 02 b0 008 MOVL INPUT gARGS+8 ; : 
08 AE 9F 000B PUSHAB faite : : 
0104 C6 DD OOOBA PUSHL  260(R8) : ; 
52 DD OBE PUSHL Re ; : 
0100 C6 9F 000C PUSHAB 256(R6) : : 
146 AE 023c sR 3¢ 00C4 MOVZWL #572, 20(SP) : : 
14 AE 9F OOOCA USHAB 0(S) ; : 
OOF C oF 0 CD PUSHAB 252(R6) : : 
000000006 00 FB D1 CALLS #6, SMGSGET_TERM_DATA : : 
1F E D8 BLBC STATUS, 9$ ; : 
62 D5 000DB 7$: TSTL (R2) : : 
14 13 00000 BEQL 8$ ; : 
50 00 ; 3 Op CVTWL a0(SP), RO : : 
D6 OO0DE INCL RO : : 
50 68 10 FC E CMPV #0, #16, (R11), RO : : 
EA BLSS 8$ ; : 
6 DD OOOEC PUSHL  R6 ; : 
EACS CF i FB i os CALLS #1, SMGSSCHECK_HDWR_SCROLL : : 
0000v CF 1 FB F CALLS #1, SMGSSOUTPUT_PASTEBOARD : : 
0 OFA 9$: RET 3 3 


K 14 
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pnge SMGSSMIN_UPD™= Calculate ainteun update sequenc 18: =fep- 138 99: 33: 8 SMGRTL.SRC shcmy woe 85. yr} 2;1 . (39 


; Routine Size: 251 bytes, Routine Base: _SMGSCODE + 15C7 


14 
SMGSSMINIMUM_UP SMGSSMINIMUM_UPDATE - o's ~ update calculatio 18-Sep-1984 90: 34:38 AX-11 Oh legcze V4.0-74 Page 97 
1-045 SMGSSOUTPUT_PASTEBOARD = bring pasteboard up-to 14-Sep-1984 13:09:54 SMGRTL.SRCJSMGMINUPD .B352;1 (38) 
ZSBTTL 'SMGSSOUTPUT PASTEBOARD - bring pasteboard up-to-date’ 
GLOBAL ROUTINE SMGSSOUTPUT_PASTEBOARD ( P_PBCB ) = 


+ 
FUNCTIONAL DESCRIPTION: 
Brings the Step lay associated with this pasteboard up-to-date. 
It does this by either redrawing it in its entirety 
or by perfomring minimal update if that mode is enabled. 
CALLING SEQUENCE: 
ret_status.wlc.v = SMGSSOUTPUT_PASTEBOARD ( P_PBCB.rab.r ) 
FORMAL PARAMETERS: 


P_PBCB.rab.r Address of pasteboard control block. 


San 


MIMMIPONINIPUPOPoPonorornefnororon 

SSSGOO0O DDO OOD 
RAVLSSSLSSRANSLESSIE 
MIMOINUTUPOTOTororurororfons 


09.09 09 09 Cd 00 0D 09 C9 09 CD. C9. G9 C9. CD CD CD CD CD 
MEAN —O OONAUSUAR OVO ONtC VISIO  # 


WIWA WWIII ROPONOPOPOPUNPUP Se 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


+ 


6 

oo IMPLICIT INPUTS: 

$09 : contents of PBCB and its WCB 

608 IMPLICIT OUTPUTS: 

2609 § 

2610 NONE 
seit § 

eig 836 COMPLETION STATUS: 

261 2837 
2614 2838 SMG$_BATWAS_ON OK, but batching was on, so nothing happened 
2615 2839 SS$_NORMAL Normal successful completion 
2616 seee 
2617 841 SIDE EFFECTS: 
2618 sets 
2619 84 NONE 
2620 2844 -- 


M14 
SMGSSMINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum update calculatio 16-Sep-1984 00:54 
reece - * : 99:39 


+38 AX-11 Oi retene v4.0 
SMGSSOUTPUT_PASTEBOARD = bring pasteboard up-to 14-Sep-1924 254 


=74 
SMGRTL.SRCJSMGMINUPD.B52; 1 


; 6 4s BEGIN 

: 6 4 cf BIND 

> 2626 rk PBCB = .P PBCB : $PBCB_DECL, 

> 2607 850 WCB = ,PBCBCPBCB_A wCB) : $WCB_BECL, 

> 2628 851 TEXT_BUF = [wCB WeB_ATTEXT BUF : VECTORE,BYTED, 
> 2629 83¢ ATTR~BUF = .WCBCWCB-A-ATTR-BUF] : VECTORC,BYTE), 
> 2630 85 ROWS = “wCB WCB-W-NO_ROWS : WORD, 

; 6 1 B94 COLS = WCBCWCB-W"NO"COLS] =: WORD: 

: 26 LOCAL 

3 2634 Reo 

3; 2635 S28 STATUS, 

3 $ $28 SIZE; 

: 638 861 EXTERNAL LITERAL 

: 2640 shes SMG$_BATWAS_ON; 


N 14 
SMGSSMINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum update calculatio 16-Sep-1984 00:54:58 AX-11 Bliss-32 V4.0-74 P 
reece SMGSSOUTPUT_PASTEBOARD = bring pasteboard up-to 1 730071382 99:30:88 SMGRTL. RCISMGMINUPD.B 231 tes 
3 264 64 + 
; rahi i } Do nothing if the output is being controlled by RMS. 
: 2645 sae 
; 264 rt: IF_.PBCBCPBCB_V_RMS) 
+; 264 8 THEN RETURN “SMG$_WILUSERMS; 
; 2648 0 
; $86 4) i* thing if batching is in effect 
Py . n . 
e31 er8 i. © nothing atching is in effec 
; 88 75 2 IF_.PBCBLPBCB_L_BATCH LEVEL] NEQ 0 
; O28 og THEN RETURN ~SMG$_BATWAS_ON; 
> 2656 7 = .ROWS * .COLS; 
: $638 th SIZE S COLS 
3; 2658 rt + 
3; 2659 81 ! If minimal uptes ie is in effect, then call 
; 2660 oes ! SMGSSOUTPUT_MINIMAL_UPDATE to output a minimal update sequence. 
; 2661 88 ! Then return. 
; $088 884 te 
; 266 885 
3; 2664 ty IF_ .PBCBCPBCB_V_MINUPD) 
; $092 tt THEN RETURN SMGSSOUTPUT_MINIMAL_UPDATE (PBCB); 
; 2667 B89 2 !+ 
; 66 890 ! Otherwise, do nothing (for now). 
; 2669 891 2 j- 
; 2670 $838 
: ser) sBoz § RETURN SS$_NORMAL 
; $678 2895 1 END; ! End of routine SMGSSOUTPUT_PASTEBOARD 


-EXTRN SMG$_BATWAS_ON 


000C 00000 «ENTRY SMGSSOUTPUT_PASTEBOARD, Save R2,R3 3 

50 04 AC 00 00002 MOVL P F 

52 08 AO 02 C1 00006 ADDL3 #2, 8(RO), R2 : 
51 08 AQ 88 ¢1 Boose ADDL3 #6, 8(RO), R1 3 
08 00D0 £0 E1 0001 BBC #3. 208(RO), 1$ ; 
50 000000006 8F Bo o0015 MOVL #SMG$_WILUSERMS, RO ; 

00A4 D 0 1E 1$: TSTL  164(RO) : 

8 3 00 5 BEQL 3 

50 00000000G 8F BY 09 ; pee #SMG$_BATWAS_ON, RO : 

53 62 i 002C 2$: MOVZWL (R2), R3 : 

21 61 ¢ O02F MOVZWL (R1). SIZE : 

1 3 ¢ 99 : MULL2. R3, Size : 

OA 0c Ao gi E1 BBC #1, 12(RO), 3$ : 
0 DD OOO3A PUSHL R : 

00000000G 00 01 be ig cays #1, SMGSSOUTPUT_MINIMAL_UPDATE : 

50 01 Bd 044 3$: MOVL #1, RO : 

4 00047 RET : 


SAGSSAINIRUR_UP SMGSSMINIMUM_UPDATE na ietee bante calculatio 18-50 gep- 138% 90:34:28 AX-11 BLi 


isge 32 V Page 199 SM 
SMGSSOUTPU "PAS TEBDA ARD - or pasteboard up-to 14-Sep- SMGRTL. eR C SMOMINUPD. "3 2;1 


; Routine Size: 72 bytes, Routine Base: _SMGSCODE + 16C2 
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SMGSSMINIMUM_UP SMGSSMINIMUM_ UPDATE = Minimum update calculatio 18-30 1984 00:54: AX-11 Bliss-32 V4.0-74 P 101 SM 
7-045 SMGSSPUT_SCREEN = Output to screen eet) ARC a ce hk pr per n i- 


96 1 XSBITL ‘SMGSSPUT_SCREEN - Pusput to screen’ 
GLOBAL ROUTINE sf SPUT_SCREEN ( 


RuM, 
NUM, 
ics $ : BITVECTOR[32] ) = 
FUNCTIONAL DESCRIPTION: 


PAPAS AAAAO 
CWoOcomo~y~ I~ 


685 
Logical ty outquts a string to the screen ys ing calls 

to SMGSSOUTPUT. The text may be accomapnied by 

renditions and cursor positioning. 

Note that the output sequences ge erated may ge 

SSOUTPUT 


t 
buffered up by SM if butfering is enabled. 


CALLING SEQUENCE: 
ret_status.wilc.v = SMGSS$PUT_SCREEN( 


woowuowwowowowvowvowo 
at td = I IOO 


WN OOONAUE WN O OONOUS WN "OO OONOUSWN OVO 


ROW_ UM.rl.v, 
FOL NUM. er lev 
»FCAGS.rl.vJ) 
FORMAL PARAMETERS: 


P_PBCB.rab.r Address of pasteboard control block. 


~ 

o 
RIPIPIPIPIPINIMINIPINININIPS SS FUTUPOPIPYININININININININININININIPINIPIPINPINIPINININIPIPOPIPINIPUPONNoPoNnonono»fnygd 
ee ee ee ee ee ee ee ee ee ee ee ee eee 


Be Se Se Se Se Ge He Se Se Se Ge Se Ge Sse Be Ge Ge Fe Ge Se Ge FH Se FH Se FH Se SH Ss Se Se Se Ge Ge Se Se Se FH SH SH Ss Se Se Se See Se Se Se Se Se Se Se Sets sees 
~“ 
So 
x 


. 
i 
. 
i 
. 
i 
. 
i 
. 
i 
. 
i 
. 
i 
. 
i 
. 
i 
i 
. 
: 
: 
i 
. 
i 
. 
i 
. 
} 
: 
: 
i 
. 
; 
i 
. 
i 
. 
i 
. 
i 
. 
i 
. 
: 
i 
. 
i 
i 
. 
i 
i 
. 
i 
. 
i 
. 
i 
i 
. 
i 
i 
. 
i 
. 
i 
. 
i 
. 
i 
i 
. 
i 
i 
. 
i 
i 


91 
91 
92 
92 
9 
33 
9 
3 
At <4 TEXT_LEN.rl.v Number of characters in text string 
A $3 TEXT_ADR.rt.r Address of start of text string 
at 33 ROW _NUM.rl.v Row number 
ar} 38 COL_NUM.rl.v Column number 
714 93 FLAGS.rl.v Rendition codes. (bit encoded) 
715 93 Optional. If omitted, normal rendition 
716 93 occurs. 
717 93 
ns 93 IMPLICIT INPUTS: 
71 94 
720 941 NONE 
721 94 
7 ; 94 IMPLICIT OUTPUTS: 
7 944 
724 945 NONE 
$3 94 
g $ ace COMPLETION STATUS: 
Bs Ben SS$_NORMAL Normal successful completion 
730 951 SIDE EFFECTS: 
731 952 


SMGSSMINIMUM_UP SMGSSMINI 
1-04 SMGS$PUT 


1 98,1 | 


MUM 
_5CR 


RE 


UP 
EN 


DATE = Minimum update calculatio 1 
- Output to screen 


NONE 


he 


Sep-1 
Sep- 1 


9B 13:09:54 


AX-11 8B 
SMGRTL. 


sre 


-32 V4.0-7 
SMGMINUPD. 3 


57 


MGSSMINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum update calculatio 16-50 Sep-1 AX-11 Bliss-32 V4.0 Page 103 $M 
snghe -"" SMGSSPUT_SCREEN = Output to screen ~3een18Re 8G3g88 = FaMe AT Ob ieg 5 VA OO ae 9 135 1- 
3 i 4 5 BEGIN 
: f 3 : BIND 
: 13 $39 PBCB = .P_PBCB : SPBCB_DECL; ! Pasteboard control block 
: 74 61 LOCAL 
: rg 96 STATUS; 

3: 2744 964 
: i? 293 OWN 
: rs 307 TRANSLATED_TEXT_DESC : BLOCKC8,BYTEJ reusable d per descriptor 

3; 2748 968 ! must be OWN storage 
3 2749 969 PRESET( CDSC$B obryre = DSCSK_DTYPE_T 
3 720 970 DSC$B_CLAS = DSCSK- CLASS “Dd, 

: 2751 971 SC$WILENGTH] = 0 

: 138 97¢ DSCS$A~POINTER] = 05; 
: 2754 974 2 BUILTIN 

: 2755 2975 

3: 2756 2976 2 ACTUALCOUNT; 


F 15 
SMGSSMINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum update calculatio 16-Sep-1984 00:54:58 AX-11 ss-32 V P 104 
rages ° . 38 ? 30:86 age 13) 


IF NOT STATUS THEN RETURN ~STATUS; ~ 


IF .FLAGSCATTR V_REND BLINK] 
we is nits TT2$0_AVO] OR NOT .TT2CTT2$V_ANSICRT)) 


SMGSSPUT_SCREEN = Output to screen 14-Sep-1 SMGRT 8 eSsicmiNubD. "3 2:1 
: 2758 97 + 
3 f 4 af ; 00 nothing if the output is being controlled by RMS. 
3; 2761 aay 
3; 276 981 If_ .PBCBCPBCB_V_RMSJ 
3; 276 o8¢ THEN RETURR -emes _WILUSERMS; 
3: 2764 9 
3; 2765 984 1+ 
3; 2766 985 ! If a rendition was specified, then output it now. 
3: 2767 an8 t= 
3; 2768 9 
3; 2769 9 8 IF Dae 1 GEQU 6 
3 aa 434 THEN BEGIN ! output text and renditions and cursor positioning 
: 277 991 BIND TT2 = PBCBCPBCB_L_DEVDEPEND2] : S$BBLOCK; 
3; 277 99 
3s 2774 99 '¢ 
3; 2775 994 i Renditions requires that the AVO (ADVANCED VIDEO) terminal 
: 2e77 995 i characteristic bit be set. Even if the TERMTABLE entries 
: 277 996 ' show that the terminal has the BEGIN_BOLD capability, 
: 2778 997 i the terminal might not have the advanced video option. 
3: 2779 998 ie 
3; 2780 999 
3; 2781 000 IF 0° ta ttas V_REND_GRAPHIC] 
: 2r8 pt ; AND TT2$9_AvO) OR NOT .TT2CTT2$V_ANSICRTJ) 
3 ree Baz Z SSNGSGET_TERM_DATA(BEGIN.LINE_DRAWING. CHAR) ; 
3; 2786 005 4 IF_.PBCBCPBCB_L_CAP_LENGTH] NEQ 0 
3: 2787 006 2 THEN N™ 
; 2788 00 STATUS=SMGSSOUTPUT (PBCB, .PBCB[PBCB_L_CAP_LENGTH] 
> 2789 008 5 BCPBCB-A~CAP~BUFFERJS; 
: 2790 009 5 IF NOT .STATUS THEN RETURN ~STATUS” 
3 $73) 010 4 END; 
: re 011 END; 
3; 279 Og 
3: 2794 $01 '¢ 
3 a) Bie Get and output the string to set the correct attributes. 
3 3137 3018 
3; 2798 301 IF FLASStaTTS V_REND_BOLD) 
3; 2799 B18 4 AND (.TT2 TT2$9_ AvO) OR NOT .TT2CTT2$Vv ANSICRTI) 
3; 2800 01 4 THE BEGIN 
3; 2801 8 ? 2 SSMGSGET_TERM_DATA(BEGIN_BOLD); 
3 608 3 § 4 AF pecerrere L_CAP_LENGTH] NEQ 0 
3; 2805 024 STATUS= SRESSOUTPUT (POCE, .PRCE PBCB_L_CAP_LENGTH] 
: 025 PBCBUA~CAP APBUFFERI); 
3 0 § 
3 0 4 
3 0 3 ; 
3 0 
; 1 2 
3 0 4 4 


WAAIAPOPOPONOPONIPOPOPUND 


SERUSGET. TERM_DATA(BEGIN_BLINK); 


—_————_—__— - —- -— 
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1-045 SMGSS$PUT_SCREEN = Output to screen 14-Sep-1984 13:09:54 SMGRTL.SRCJSMGMINUPD.B32; 1 (43) 
; 2815 $ 4 
: 816 4 IF_.PBCBCPBCB_L_CAP_LENGTH] NEQ 0 
> 281 : THEN BEGIN 
; B18 0 STATUS=SMGSSOUTPUT (PBCB, .PBCBEPBCB_L_CAP_LENGTH] 
; 281 0 ; . PBCBLPBCB_A~CAP~BUFFERJS; 
: 2820 0 IF NOT .STATUS THEN RETURN .STATUS: 
: 2821 040 4 END; 
; : ; 04 ; END; 
: 2824 838 IF -FLAGSEATIR V_REND_REV] 
> 2825 044 4 AND (.TT2CTT2$V_AVO] OR NOT .TT2CTT2$V_ANSICRTJ) 
: 28 $ 045 4 THEN BEGIN 
; 8 f O46 4 SSMGSGET_TERM_DATA(BEGIN_REVERSE); 
: 2829 048 4 IF_.PBCBCPBCB_L_CAP_LENGTH] NEQ 0 
3; 2850 049 5 THEN N 
> 2831 050 5 STATUS=SMGSSOUTPUT (PBCB, .PBCB[PBCB_L_CAP_LENGTH] 
; e832 051 5 ; PBCB-A-CAP~BUFFERJ); 
> 283 305 6 IF NOT .STATUS THEN RETURN .STATUS: 
3; 2834 3053 4 END; 
| BG is 
: $B39 056 IF -FLAGSEATIR V_REND_UNDER] 
> 2838 057 4 AND (.TT2ETT2$0_AVO] OR NOT .TT2CTT2$V_ANSICRTJ) 
> 2839 058 4 THEN BEG 
; 3840 059 4 SSMGSGET_TERM_DATA(BEGIN_UNDERSCORE) ; 
; 3843 061 4 IF .PBCBCPBCB_L_CAP_LENGTH] NEQ 0 
3 384 306¢ 5 THEN N 
> 2844 3063 5 STATUS=SMGSSOUTPUT (PBCB, .PBCBEPBCB_L_CAP_LENGTH] 
> 2845 064 5 .PBCBLPBCB_A~CAP BUFFER); 
> 2846 065 5 IF NOT .STATUS THEN RETURN .STATUS; 
+ 2847 066 4 END; 
3 2848 067 END; 
: $889 069 ts 
> 2851 070 i Qutput the text if they are not border elements. 
: He Ore Output translated text for border elements. 
: 2854 07 
; 2855 07% IF_.FLAGSCATTR_V_BORD_ELEM] OR .FLAGSCATTR_V_USER_GRAPHIC) 
; B28 354 ? THEN BEGIN ~ T handing border element 
: ne om 
; 860 079 4 TEXT_DESC : VECTORC2); 
: 86¢ a8 4 EXTERNAL ROUTINE 
> 2864 0 § 4 LIBSSCOPY_DXDX; 
BE . 
> 286 0. § 4 i Build a fixed-length string descriptor for the 
: re: i ? ;_Source text. 
> 2870 p 4 ; 
+ 2871 0 4 TEXT_DESCCOJ=. TEXT_LEN; 


SAGSSAINIFUR. uP SmeSSPUN Ser UPDATE = Minimum update calculatio 1-50-1984 90:38 +38 AX-11 Bliss-32 V¥4.0-74 Page 196 
= SM SMGRTLe SRC JSMGMINUPD.B52;1 (43) 


TEXT_DESCL1J=. TEXT_ADR; 


14 
De and output the prefix string to start borders. 


SANS 
DONO 


F_.TT2CTT2$V_AVO] OR NOT .TT2CTT2$V_ANSICRTJ 
TF HEN B 


; 91 4 3 
; O36 4 3 
3 8 4 3 
; 94 4 $ 
; 95 4 5 
3 38 4 : 
; 4 4 : 
3 aay 4 ; SSMGSGET_TERM_DATA(BEuiN_LINE_DRAWING_CHAR) ; : 
3 HY 101 IF_.PBCBCPBCB_L_CAP_LENGTH] NEQ 0 : 
: th 8 6 THEN GIN" : 
3; 28 1 6 linia e mane diintetemede pece. L_CAP_LENGTH] 3 
> 2885 04 6 B"A~CAP~BUFFERJ); : 
; 2886 05 6 IF NOT .STATUS THEN RETURN’ OeTAT es 3 
3 rt 196 5 END; 3 
3; 2888 107 4 END; 3 
3; 2889 108 4 F 
3; 2890 109 4 1+ F 
3; 2891 110 4 ! If the COMPLEX_BORDER bit is set igi we have to output ; 
3 5038 111 4 ! the border characters one at a tim : 
3; 289 Vig 4 ! Otherwise, we can do a byte for beta translation. ; 
; Seoe 113 4 in 3 
3; 2895 s1i8 4 3 
3; 2896 115 4 IF as _V_COMPLEX_BORDER] 3 
; 2598 #118 2 THEN BEGIN” ~! Complex border : 
3; 2899 3116 5 INCR I FROM 0 TO .TRANSLATED_TEXT_DESCCDSCS$W_LENGTHIJ-1 DO 3 
3 $300 3119 6 N $ 
3; 2901 3120 6 Stee CHAR F 
3; 2902 3121 6 BIND BUF = > TRANSLATED _ TEXT_DESCCDSCSA_POINTER] 3 
3 seer $158 6 VECT RC,BYTE); 3 
3 2904 $15 6 BIND BORDER RAVECTOR = * PBCBCPBCB_ R_BORDER_VECTOR] 3 
: 2905 Ise 6 3 
3; 2906 3] 5 6 CHARS BURL T 3 
3; 2907 126 6 IF .CHAR Géau “16 3 
3; 2908 127 7 THEN BEGIN 3 
3; 2909 128 7 CHAR= . CHAR/16; 3 
; 2910 194 7 3 
3 2911 130 7 "the following code is ridiculous. : 
3 aig 3131 7 i We should realty have a control_vector in the rece 

: 291 136 7 ' so that these characters will be gotton just o 

3 a : Z 4 t However, we had no chance to do this before final “code freeze. 

3 2916 136 7 

3 2917 136 7 SELECTONE .CHAR OF 

3; 2918 Bae 

: 2919 138 7 SET 

3; 2920 139 7 

3; 2921 140 7 § H SSMGSGET_TERM_DATA(TRU MCAT ION ICON); 

: 29 ; 141 7 3 SSMGSGET-TERM_DATA(HT_GRAPHIC); 

: 29 136 7 10]:  SSMGSGET"TERM_DATA(LF_ GRA PHIC); 

3: 2924 1435 7 11): S$SMGSGET-TERM_DATA(VT_GRAPHIC); 

3 2925 144 7 193; :  SSMGSGET-TERM_DATACFF— ys PHIC); 

: 29 $ 145 7 1 SSMGSGET- TERM” DATA(CR’ GRAPHIC); 

: ; i 128 4 OTHERWISE): SSMGSGET_TERM_ DATAC TRUNCATION. ICON) ! Error characte 


SMGSSMINIMUM_UP SMGSSMINIMUM_UPDATE = Mini dat lati | 1984 AX-11 
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SMGS$S$PUT_SCREEN = Output to screen 4-Sep-1 SMGRTLe SRC SMGMINUPD. 3 231 
; 2929 148 TES; $ 
; 2930 14 : : 
: 2931 1 7 IF_.PBCBCPBCB_L_CAP_LENGTH] NEQ 0 ‘ 
; 29 § 1 THEN BEGIN™ : 
3 ay 1 § pectetanmtanintcintamege L_CAP_LENGTH)] : 
: 2934 1 PBCBLPBCB_A_CAP_BUFFERJ); : 
: 4 2? 128 | i «STATUS THEN RETURN .STATUS™ : 
: 2937 136 ELSE BEGIN ; 
H 3 15 STATUS=SMGS$SOUTPUT(PBCB,1,UPLIT BYTE('®')); ’ 
: 2939 158 IF NOT .STATUS THEN RETURN .STA ATUS : 
3; 2940 159 7 END; 
3 2941 160 7 
3 at8 161 7 END 
3; 294 166 7 ELSE BEGIN 
: 2944 163 7 BIND COUNT=.BORDER_VECTORC.CHAR] : BYTE, 
: 2945 164 7 STRING=COUNT+T; 
: 2946 165 7 STATUS=SMGS$SOUTPUT (PBCB, . COUNT, STRING); 
3 2947 166 7 IF NOT .STATUS THEN RETURN STATUS 
3; 2948 3167 7 END 
3: 2949 $108 5 END; 
; 2950 169 5 
3; 2951 3170 5 
3 sat) 3171 5 END ' Complex border 
: 295 \v¢ 5 ELSE BEGIN ! Simple border 
3: 2954 > 3 
$982 178 8 x be tegat, string te th t stri 
3 opy the input string to the output string. 
: 2957 3176 5 
; $326 3177 5 
3; 2959 3178 5 STATUS=LIBSSCOPY DXDX(TEXT_DESC re TEXT_DESC); 
; 2960 179 5 IF NOT .STATUS TREN RETURN™.STATUS 
3: 2961 180 5 
3 494 181 5 + 
3; 296 $158 5 i ohare the characters as per the border vector. 
: 5968 3184 3 
3; 2966 3185 5 INCR I FROM 0 TO .TRANSLATED_TEXT_DESCCDSCS$W_LENGTHIJ-1 DO 
: 2967 186 6 BEGIN 
3; 2968 187 6 Scan CHAR; 
2 : , 138 2 BIND But = CrORE sBvTEd: TEXT_DESCCDSCSA_POINTER) 
; 44 139 ° BIND BORDER Ravel os PBCBCPBCB_R_BORDER_VECTOR] 
> 297 19¢ 6 14 
: 2974 193 6 ! If the character is larger than 15, then 
3; 2975 194 6 ! the high-order nibble is a special 
3: 2976 195 6 : peer oreenis character. We could allow 
3: 2977 196 6 ' “te 1 cparecters here, things 
3; 2978 197 6 : Like R_GRAPHIC, etc., but for now 
3; 2979 198 6 ! we onlyallow code 6 to mean truncation-icon. 
: 30 +44 ? Other codes represent the error character. 
: § 1 6 CHAR=.BUFC.1); 
3; 298 5 § IF CHAR GEQU 16 
3 2984 THEN N 
: 2985 4 7 CHAR=.CHAR/16; 
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Oo748 
T SCREEN = Output to screen 14-Sep-1 SMGRTL. INUPD.B852;1 


cu 


: ae a : 
: 2988 : ; i The following code is ridiculous. ; 
; 2989 8 f ! We should really have a control_vector in the PBCB : 
; 2990 09 ' so that these characters will be gotton just once. : 
; 144 9 4 ; However, we had no chance to do this before final code freeze. : 
: 299 ef ; 
3 2994 15 7 SELECTONE .CHAR OF : 
Be 5 1 2 
> 299 16 7 ; 
>; 2998 i 7 6]: SSMGSGET_TERM_DATA(TRUNCATION_ICON); : 
; 2999 18 7 9): SSMGSGET-TERM_DATA(HT_GRAPHIC); 3 
; 3000 19 7 10]: SSMGSGET_TERM_DATA(LF_GRAPHIC); : 
; 3001 0 7 11]:  $SMGSGET-TERM-DATA(VT_GRAPHIC); ; 
; 00¢ i 1 :  $SMGS$GET-TERM-DATA(FF GRAPHIC); ; 
; 300 ¢ 7 13]: SSMGSGET_TERM_DATA(CR_GRAPHIC); : 
$ Bye ? : OTHERWISEJ: SSMGSGET_TERM_DATA(TRUNCATION_ICON) ! Error characte : 
i 3006 g25 f TES; 3 
: 3008 ; 7 7 IF .PBCBCPBCB_L_CAP_LENGTH] NEQ 0 ; 
: 3009 8 8 THEN BEGIN 3 
: 3010 229 8 BIND CHAR=.PBCBCPBCB_A_CAP_BUFFER] : BYTE; ; 
; 3012 331 H pur t.dJ8.CHAR : 
; O18 32 8 ELSE BEGIN : 
; 3013 $7 7 gad -1J=%C'*' : 
i 316 s , END 
: 3018 $037 6 ELSE BUFC.1]=.BORDER_VECTORC. CHARI : 
BS BBG ~ 2 
: 3021 40 5 ‘+ ; 
; O58 241 5 ! Output the translated characters. : 
; 302 seg 5 ! We do not free the dynamic string at this time : 
3; 3024 243 5 ! as an optimization. We are sure to need that 3 
3; 3025 see : ' space later. 

3 § 3 $2 l- 

; 3028 $$ STATUS=SMGSSOUTPUT (PBCB, 

3; 3029 48 eee Aree TENT BE SCEDSC aN. LEMGT HD 

; 3030 49 TRANSLATED TEXT-DESCLDSC$A_POINTER4); 

H 4 1 9 IF NOT .STATUS THEN RETURN .STATUS; 

; 088 ¢ 4 END; ! Simple border 

2: i . 

; ORS 36 ? Get and output the suffix string to reset attributes to normal. 

; 3038 57 4 

; O86 38 4 IF Tec Teey AvO) OR NOT .TT2CTT2$V_ANSICRTJ 

; Get 60 ; $SMGSGET_TERM_DATA(END_LINE_DRAWING_ CHAR); 
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pnese SMGSSPUT_SCREEN = Output to screen 16- Sen 1984 9 aH SMGRTL.SR aeisacmtnooy B32:;1 . 3 
IF_.PBCBCPBCB_L_CAP_LENGTH] NEQ 0 
THEN BEGIN™ 
STATUS= =SAGSSOUTPUT(PBCB. .PBCBFP BCE ~CAP LENGTH] 
BCPBCB-A_CAP-BUFFERJS; 
IF NOT «STATUS THEN RETURN .STATUS? 
END; , 
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END ! pendt ing on a 
ELSE BEGIN } ng (00 mal t 
STATUS=sicSS0UTPU (PBCB. TEXT LEN « TEXT_ADR) ; 
IF NOT .STATUS THEN RETURN .STATUS; 


ND; : the A aig normal text 
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i Get and output the suffix a *ieine to reset attributes to normal. 
! We used to assume that END BOLD brings back normal attributes. 
ie Now we rely on BEGIN_NORMAC_RENDITIO 


WNAaw 


SREARRARARARAAAARE REE ER 


a RLS AL: AVO] OR NOT .TT2CTT2$V_ANSICRTJ 


at RDECLARED( SMGSK_BEGIN_NORMAL_RENDITION ) 
SSMGSGET_TERM_DATA(BEGIN_NORMAL RENDITION) ; 


MEUM] DS OONOUES WN" OOODNOUEW 


C9 C9 09 C9 09 09 09 09 09 SII NSIS NINN OPP AOA OOO 


oO 
DONA NE WIN $9 OONOAUES WN | OOO NOUSWN "OW ONOULS WT 


WIA AIAN 


Sees 


U %ELSE 
07 U 328 SSMGSGET_TERM_DATA(END_BOLD); 
071 3 tFI 
O78 9 IF .PBCBCPBCB_L_CAP_LENGTH] NEQ 0 
074 9 THEN BEGIN™ 
075 9 STATUS=SMG$SOUTPUT (PBCB,. -Paceerecg.t L_CAP_LENGTH] 
3076 9 A~CAP“BUFFERJ); 
077 9 IF NOT .STATUS THEN RETURN .STATUS: ~ 
078 9 END; 
079 9 END; 
080 
IF .FLAGSCATTR_V_REND_ GRAPHIC] 
oes AND 112 TT2$V_AVO] OR NOT .TT2CTT2$V_ANSICRT]) 
84 SSMGSGET_TERM_DATA(END_LINE_DRAWING_CHAR) ; 


IF ,PBCBLPBCB_ L_CAP_LENGTH] NEQ 0 
STATUS=SMGSSOUTPUT (PBCB, .PBCB[PBCB_L_CAP_LENGTH] 
.PBCBLPBCB_A~CAP—BUFFER RIS: 
IF NOT .STATUS THEN RETURN .STATUS 
END; 


END ' output text and renditions 
ELSE BEGIN ! output text only 


STATUS=SMGSSOUTPUT (PBCB,.TEXT_LEN,.TEXT_ADR); 
IF NOT .STATUS THEN RETURN .STATUS. 
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MINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum update calculatio 1 
SMGSSPUT_SCREEN = Output to screen 
: 190 1 END; ! output text only 
196 : RETURN SS$_NORMAL 
; 3104 END; ! routine SMGS$S$PUT_SCREEN 
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LIBSSCOPY_DXDX 
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SCREEN = Output to screen 
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SMGSSMINIMUM_UP SMGSSMINIMUM UPDATE - Minimum update calculatio dak 4 at B49 90:34:38 AX-11 O lease V4.0-74 Page 119 
1-04 SMGS$S$AUTOB_OOTPUT - Autobended entry for output 14-Sep-1984 09:54 SMGRTL.SRCJSMGMINUPD.B32;1 (44) 
XSBTTL 'SMGSSAUTOB_OUTPUT = Autobended ongry for output to screen’ 
GLOBAL ROUTINE SMGSSAUTOB_OUTPUT (PB_ID,TEXT_LEN,TEXT_ADR) = 


FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 


7 
| 
| 

5 
: 3106 4 1 | 
; 3107 i 
: 3108 8 1 
; 3109 1 
; 3110 Be 
; 3111 7.34 
; 116 ne 
3 31) . ot 
3; 3114 § ; ret_status.wlc.v = SMGSS$AUTOB_OUTPUT( 
: 3115 1 | PB _ID.rl.v | 
: 3116 , 1! TERT_LEN.e lov | 
: 3117 is TEXT-ADRort.r5 | 
; 3118 > 3% 
: 3119 7 1 | FORMAL PARAMETERS: 
; 3120 sso (1 | 
3 4 1 378 ! PB_ID.rl.v Pasteboard id 
: 3 § $1 : TEXT_LEN.rl.v Number of characters in text string 
: 3125 3303 1! TEXT_ADR.rt.r Address of start of text string | 
3; 3126 3344 1! The text may contain escape sequences. 
g Siler 3345 1! | 
; 3128 3346 1 ! IMPLICIT INPUTS: 
: 3129 3347 1! 
3 3130 3348 1! None | 
3 sie) 3349 1! 
: 3132 3350 1 | IMPLICIT OUTPUTS: | 
; 313 3351 1! , 
& 3134 $326 1! None 
; 3135 i>) Be 
; 3136 3354 1 ! COMPLETION STATUS: 
: $13, $322 1! 
; 3138 356 1! SS$_NORMAL Normal successful completion 
3; 3139 3357 1! 
; 3140 3358 1 ! SIDE EFFECTS: 
: 3141 3359 1 | | 
3; 3142 3360 1! The following may occur as a result of calling SMG$SOUTPUT: 
3 3143 3361 1! Output may occur. J 
3 3144 $308 iz If buffering is enabled, buffers may fill and/or dump. 
; 3145 3363 1 i-- | 

| 
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SMGSSMINIMUM_UP SMGSSMINIMUM_UPDATE = Minimum update calculatio 14. Sep-1984 54:58 Bliss-32 V4.0-74 e 120 
1-045 SMGSSAUTOB_OOTPUT = Autobended entry for output 14- =Sep-19 4 99:39:86 Yeherte’ SREISHEMINUSD 62:1 290 18) 
> 3147 64 2 BEGIN | 
¢ 3ing 2 § LOCAL | 
; 130 83 
> 3151 68 PBCB; 
: 13¢ 4 
; 12 £0 SSMGSGET_PBCB(.PB_ID,PBCB); 
: 3139 oe RETURN SMGSSOUTPUT(.PBCB,.TEXT_LEN,.TEXT_ADR) 
: 3157 374 1 END: ! end of routine SMGSSAUTOB_OUTPUT 
0000 00000 -ENTRY SMGS$$AUTOB_OUTPUT, Save nothing : 3325 
50 04 BC dO 00002 MOVL  a@PB_ID, RO : 3370 

11 19 00006 BLSS ; 

060000006 00 50 D1 00008 CMPL RO, PBD_L_COUNT F 

08 14 OO000F BGTR 1$ : 

08 000000006 00 50 €0 00011 BBS RO, PBD_V_PB_AVAIL : 

50 000000006 &F DO 00019 1$: MOVL #SMG$_IRVPAS~ID, bs ¢ ; 

50 0000000060040 00 $0051 2$: MOVL pBD A pacetAg] PBCB : 
7E 08 AC 7D 00029 MOVG EXT CEN, -(SP5 : 3372 

50 DD 0002D PUSHL race ; 

0000v CF 03 FB 0002F CALLS #3, SMGSSOUTPUT F 
04 00034 RET : 3374 


; Routine Size: 53 bytes, Routine Base: _SMGSCODE + 1D2D 
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4 SMGR C 


ZSBTTL ‘'SMGSSOUTPUT = Output to screen 
GLOBAL ROUTINE SMGSSOUTPUT (P_PBCB, ee LEN, TEXT_ADR) = 


3 FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 
ret_status.wic.v = SMGSSOUTPUT( 


P_PBCB.rab.r, 
TEXT_LEN.rl.v 
TEXTIADR. rtrd 
{FORMAL PARAMETERS: 
P_PBCB.rab.r Address of pasteboard control block. 
TEXT_LEN.rl.v Number of characters in text string 
TEXT_ADR.rt.r Address of start of text string 


The text may contain escape sequences. 


: IMPLICIT INPUTS: 


Contents of PBCB. 
IMPLICIT OUTPUTS: 


PBCBCPBCB_W_OUTPUT_BUFLEN) may change if buffering is enabled. 
COMPLETION STATUS: 
SS$_NORMAL Normal successful completion 


SIDE EFFECTS: 


Out ut —_ occur. 
ufferin ng is enabled, buffers may fill and/or dump. 
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BEGIN 
BIND 


LOCAL 


: ahd M_UPDATE = Minimum u 
= Output to screen 


PBCB 


ae 


» TEX 

PBCB 
PBC 
-PBCB 


pdate calculatio 1$-Rep-1984 90: 3329 


: $PB 

DR VECT 
PBCB_W “OUTPUT BU 
PBCB_W_OUTPUT_BU 
PBCB_A_OUTPUT_BU 


AX=11 
SMGRTL- 


BLi degeze V4.0-74 
SRC JSMGMINUPD.B52;1 


' pasteboard control block 
E],! ate ing to be output 


os 4 ! number of chars in buffer 


i size o 


3 VecToRE avTeds 


buffer 


! Output buffer 
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] 
Pp 
i 
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+ 
Do nothing if the output is being controlled by RMS. 
IFf_.PBCBCPBCB_V_RMS) 

THEN RETURN “SMG$_WILUSERMS; 


f buffering is enabled, and the new string won't fit in the buffer, 
hen we must output the buffer now. 
f it will fit, then just put it in the buffer. 
oO not break up the string since we do not want to output 
partial escape sequence. 


IF_.PBCBCPBCB_V_BUF_ENABLEDJ 
THEN BEGIN ! buffering is enabled 


14 
See if the string will fit in the buffer. 


IF_.TEXT_LEN+.BUFLEN GTRU .BUFSIZ 
THEN BEGIN ! No = Dump buffer 
STATUS=OUTPUT (PBCB, .BUFLEN, BUFFER); 
IF NOT .STATUS THEN RETURN .STATUS; 
BUFLEN=0 
END ' No = Dump buffer 
ELSE BEGIN ! Yes - append to buffer 


'+ 

: Copy the text into the buffer, 

' update BUFLEN which keeps track of 
! how much data is in the buffer, 

!' and then return. 


CHSMOVE (. TEXT_LEN, TEXT, BUFFERC.BUFLENJ) ; 
BUF LEN=.BUFLER+. TEXT_LEN; 
RETURN SS$_NORMAL 


END; ! Yes = append to buffer 


We reach here if the string would not fit in the buffer. 
The buffer has been dumped. 

Put the new string into the buffer. 

If it will not fit, we output it in chunks. 

We output as many full buffer chunks as we can. 

When we are all done, we are left with a string 

smaller than one buffer's worth, which we then 

put into our output buffer. 


INCR I FROM O BY . 
IF_.1+.BUF 
THEN BE 


$1Z DO 
LEQU » TEXT_LEN 


817 
GIN output next part of string 


2 V4.0-76 ° | 
SuNUPD 64251 age 13; 


sf SSMINIMUM_UP SMGSSMIN 


5 Ss 

; 70 484 4 

: 355) iB 

; ie ta? 

: 3274 4 8 & 

: 3275 4 4 

3 6 490 4 

3 7 491 4 

; 3278 136 4 

: 3279 49 

3 80 494 ELSE 

3 $B 495 

3 eB 49 

: 328 49 

3 see 498 

3; 3285 499 

. 

BB BR 

; 3290 3504 

3 91 505 RETURN 

; 3596 3506 

3; 329 3507 1 END; 
08 
59 
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M 
calculatio 19 
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STATUS=OUTPUT( 
IF NOT .STATUS 
END ' output n¢ 
ELSE BEGIN ! buffer f 
BUFLEN=. TEXT _LEN-.1 
CHSMOVE ( .BU 
EXITLOOP 
END ! 
END ! buffering is enabled 
BEGIN ! no buffering 


+ 
Output the string directly. 


STATUS=OUTPUT (PBCB, . TEXT_LEN, TEXT) 
IF NOT .STATUS THEN RETURN .STATUS 


END; ! no buffering 
SS$_NORMAL 
OFFC 00000 
5E 04 C2 0000 
57 04 AC 00 0000 
58 72.) «OA? po 00009 
59 6C A? D Booty 
00D0 3=6¢? 03 E1 00011 
50 000000006 8 0 00017 
5A 08 C 00 O001F 
69 oc 7 €9 86 3 
52 8 3C 00027 
5A § 1 QOO2A 
TO BR 
§ 4B 000 
0204 09 
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Soooooooco 
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PM 
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ep- 
Sep=1 


Be 19:09:36 


PBCB, .BUFSIZ,TEX 
THEN RETURN .ST 


AX-11 Oh iegese V4.0-74 
SMGRTL.SRCJSMGMINUPD.B352;1 


TC.1)); 
ATUS 


xt part of string 
nal part of string 


FCEN, TEXTC.1], BUFFER); 


! could be 0 


SMGSSOUTPUT, Save R2,R3,R4,R5,R6,R7,R8,R9,- 


OUTPUT 
STATUS 
1S. 8$ 


Page 124 
. (48) 


; Routine Size: 
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Routine Base: 


6E 


50 


7FFFFFFF 


0480 


_SMGSCODE + 1062 
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SMGSSMINIMUM_UP ti far ap UPDATE = Mini i 16-5 -1984 
sncee nimum update calculatio 16-Sep 1384 90: 34 +38 


11 ss-32 V4.0 P 1 
- Low level output -Sep- age 186 


AX- 
SMGRT et: CISMGMINUPD . YF 2;1 


95 ZSBITL ‘OUTPUT = Low Level output’ 

3 ROUTINE OUTPUT (P pace, TEXT. LEN, PYEXT_ADR) = 

38 i FUNCTIONAL DESCRIPTION: 

00 Handles low level output by issuing a Q10 or calling RMS. 
01 No buffering occurs here. 

8§ If CTRL/O was encountered, then we invalidate our knowledge 
bi of the screen. 

05 ' CALLING SEQUENCE: 


ret_status.wic.v = Surry. 


OUTPUT 
; 88 1 
; 0 4 
7 ion 
3 ig 1! 
; 14 1! 
; S19 1 | 
: 218 1! 
3 ay a8 
3 518 1 | 
; ah 1! 
: 3308 ay ti P PBCB.rab 
: .tab.r, 
: 3309 5 ¢ 1 TEXT_LEN. elev 
; 310 3 ; TEXTADR.rt.rd 
3 3312 525 1 i FORMAL PARAMETERS: 
3; 331 526 (1 | 
5 tele 32 t : P_PBCB.rab.r Address of pasteboard control block. 
3 $15 3550 1 TEXT_LEN.rl.v Number of characters in text string 
; 3318 531 1! TEXT_ADR.rt.r Address of start of text string 
: 333 236 ’ The text may contain escape sequences. 
: 3321 534 1 IMPLICIT INPUTS: 
3 $56 535 1! 
; 33 536 1 | Contents of PBCB. 
; ; 4 537 1: 
: 5 538 1 i IMPLICIT OUTPUTS: 
: 3326 539 1! 
3; 3327 540 1} NONE 
: 3328 541 1 | 
; $83 $206 1 | COMPLETION STATUS: 
3; 3330 3543 1 | 
; 3331 544 1! SS$_NORMAL Normal successful completion 
3 335 545 1! SS$_xyz errors from Q10 
3 $3 228 1 SS$"xyz errors from $ASSIGN 
; 33 : 784 : RMSS_xyz errors from RMS (STS value only) 
; 33 3549 1 | SIDE EFFECTS: 
3; 3337 550 1! 
; $35 551 1! NONE 
3 9 552 1 i- 
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wth: OUTPUT = Low"level output 1e-88b-198e $9:09:5¢ — EemarteSReishomINupD 682; 1 age 15) 


BEGIN 
BIND 

PBCB = .P_PBCB : SPBCB_DECL; ! pasteboard control block 
LOCAL 

Q10_10SB : VECTOR(4], 

STATUS; 


Do nothing if the output is being controlled by RMS. 
IF _.PBCBCPBCB_V_RMSJ 
THEN RETURN SMG$_WILUSERMS; 


1+ 
Null strings succeed no matter what. 


WAWWA.AAWNNWANAA 
POR MAMA AD AMAA Eee 


=O OONOA VEN 0 OONO UE WIN OC OONOUE WN“ OOONOUL WN 


IF .TEXT_LEN EQL 0 
THEN RETURN SS$_NORMAL; 
iL 
! Normally, we use Q10s to talk to this terminal. 


! See if a channel has been assigned yet. 
If not, assign a channel now. 


IF_ .PBCBCPBCB_W_CHAN] EQL 0 
THEN BEGIN ! assigning channel 
! #** Perhaps this code should be moved to SMGSCREATE_PASTEBOARD. 
LOCAL NAME_DESC : VECTOR(2); ! Fixed length descriptor 


SN NNN NNO AO OO 
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+ 
! Create a fixed length descriptor for our device name string 
for use by $SASSIGN. 


IG 
Comon~ 


RAPALA ANIA AIA III OOO 
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CLSLSSSSSSSSSRRS 
ie] 
SESSRAA 
= =O OONO UF WR 0 OO NOAUE WO OONOAOUSWRD "O ODONOAU EWR)" OVOONOULW 


OOO OO OO O09 09 0000 09 09 09 09 09 SII NII NNO AAA AAA AAOury 


pre ETSI SE oes 5 8 43 kG Pere LEN); 
NAME-DESCC1J= PBCBLPBCB_T_DEVNANI; 

'¢ 

' Assign the channel. 

Put the resulting channel number in PBCBCPBCB_W_CHAN). 


ret eat © ah al tal esi ah ah ah ab Ab Ab Ab db db db ib bb db Ab Ab ab db hh hb dh db dh sb db db dh dh dh dh dh dh dh dh ah eh 


STATUS=$ASSIGN( DEVNAM = NAME DESC, 
9 605 CHAN = PBCBCPBCB_W_CHAN]); 
6 IF NOT .STATUS THEN RETURN .STATUS 


608 END; |=! assigning channel 
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1-045 OUTPUT = Low level output . 1 ~Sep 5 98 34 SMGRTL.SRCJSMGMINUPD .B52; 1 ae 155 


: 396 re fy Q10 to output the stri 

° ; 4ssue a 0 outpu e string. 

) ee 

: 340 P 3614 2 STATUS=$Q10W( CHAN = -PBCBEPBCB_W_ CHAN], 

3 340 P 3615 EFN = .PBCBCPBCB-B-EFNJ, 

3 3404 p o18 FUNC = 198 WRITEQBCK OR IOSM_NOFORMAT OR 

: 3405 P 361 (IF .PBCBCPBCB_V_UNSOLICIT] TREN IOSM_ENABLMBX ELSE 0), 
; 3406 P 3618 10SB = Q10_10S6 

3 3407 P 3619 P} = . TERT_ADR 

: 3408 620 P2 = {TEXT"LENS; 

; 3409 621 IF NOT .STATUS THEN RETURN .STATUS: 

; 410 6 ‘ IF NOT .Q10_IOSBCO) THEN RETURN .Q{0_10SB(0); 

: ae 624 2 '+ 

; 341 625 ! If the 1/0 was aborted by CTRL/O, then we have no idea how far 

3 Sele 626 ! the 1/0 got and so our knowledge of the screen is invalid. ; 
: 3415 $050 ! We therefore invalidate our screen buffer by setting the CONTROLO bit. 
; 3416 628 ! (We can't just invalidate the screen buffer here because our caller 
: 3417 2063 ! may set that buffer.) 

: 3018 seu) § 

: 3420 3632 IF .STATUS a SS$_CONTROLO 

3 3421 63 OR .Q10_10S8(0) EQC SS$_CONTROLO 

; 3056 soe¢ THEN ~PBCBCPBCB_V_CONTROLOJ=1; 

: 3494 3636 : RETURN SS$_NORMAL 

: 3058 3638 1 END; 


-EXTRN SYSSASSIGN, SYS$Q10W 


000C 00000 OUTPUT: .WORD Save R2,R3 ; 
SE 18 cé 90002 SUBL2 #24, SP ; 
3¢ 04 aC DO 0000 MOVL P pace R2 : 3557 
5 00D0 ce 9E 00009 MOVAB 208(R25, R3 : 3568 
08 63 603 €1 0000 BBC #3, (R35, 1$ : 
50 000000006 8F bd 901 MOVL #SMG$_WICUSERMS, RO : 3569 
08 ac D3 O01, 1$ TSTL ‘TEXT_LEN + 3575 
75 13 00010 BEQL) «6s 7$ : 
64 A2 83 OO1F TST 3Q0¢R2) : 3584 
6E 12 A2 3¢ 00 4 MOV ZWL 18(R2) NAME _DESC : 3596 
04 AE 18 Ad 9€ 8 OVAB 24(R2). NAME~DESC+4 : 3597 
re € 0002D CLRQ 58h) : 3605 
64 Ad OF O002F PUSHAB 100(R2) : 
000000006 ~ £ fF 6 g PRLS, Wa SySSASSIGN ; 
8 50 9 c BLBC STATUS, 8$ ; 306 
— 7 F 2$ CLRQ  =(SP) : 3620 
7E 7C 00041 CLRQ = = (SP) ; 
08 AC DD 00043 PUSHL TEXT_LEN : 
C AC bp : 4g PUSHL TEXTADR : 
7E 7C 0004 -(§ : 
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- Low level output 
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; Routine Size: 152 bytes, 


Routine Base: 
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Yona Bliss-32 V4.0-74 
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10_10SB, #1545 


7$ 
#64, (R3) 
#1, RO 
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SMGSSMINIMUM_UP aa a UPDATE = Minimum update calculatio 18-5 2-500-138% 90: 38:38 AX-11 Bliss-32 v4.0 o Page 
1-045 OUTPUT = Low level output 14-Sep-1984 15:09:54 SMGRTL.SRC SMGMINUPD .B 2;1 
7; 34 END 
; 3038 3828 0 EL UDON 
-EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
; Name Bytes Attributes 
; _SMGSDATA 76 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, Sra ptt f 
; _SMGSCODE 7844 NOVEC,NOWRT, RD. EXE. SHR. LCL, REL, CON, PIC.ALIGN(2) 
i Library Statistics 
; ecocesee Syabols ocooceee Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28: evs teJsr emer L32;1 9776 135 1 581 00:00.9 
> _$255$DUA28: att oasis TLLIB.L32;1 3 8 § 00:00.1 
; _$255$DUA28: SHCRTE OBJ JSMGLIB.L32;1 469 7 16 3 00:00.4 
; COMMAND QUALIFIERS 
: h-SSS/ENECR OSE SELB, EMI TIAL -GPT IRI EE) HO TRACE/L LSm1, [58s SHER IPO SERJ OCR IS: SRENIIPD MSRC$: SMGMINUPD/UPDATE=(ENHS$: SMGMINUPD 


: i oo 7734 Ws 186 data bytes 
5 they tiee: 9:50.7 
; Lines/CPU Min: 11 
; Lexemes/CPU-Min: 195 3 

; Memory Used: 697 pages 
; Compication Complete 


re 
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